="nv">integer</span>                       :: <span class="nv">itoken</span>
   <span class="nv">icount</span><span class="o">=</span><span class="mi">0</span>
   <span class="k">do</span>        <span class="o">!</span> <span class="nv">read</span> <span class="nv">lines</span> <span class="nv">from</span> <span class="nv">stdin</span> <span class="k">until</span> <span class="k">end</span><span class="o">-</span><span class="nv">of</span><span class="o">-</span><span class="nv">file</span> <span class="nv