span><span class="ss">)</span> <span class="nb">result</span> <span class="ss">(</span><span class="nv">string</span><span class="ss">)</span>

 <span class="nv">character</span><span class="ss">(</span><span class="o">*</span><span class="ss">)</span>, <span class="nv">intent</span><span class="ss">(</span><span class="nv">in</span><span class="ss">)</span>    :: <span class="nv">str</span>
 <span class="nv">integer</span>,<span class="nv">optional</span>,<span class="nv">intent</span><span class="ss">(</s