 class="nv">none</span>
<span class="nv">integer</span> :: <span class="nv">i</span>
<span class="o">!!</span> <span class="nv">set</span> <span class="nv">up</span> <span class="nv">drawing</span> <span class="nv">environment</span>
<span class="k">call</span> <span class="nl">prefsize</span><span class="ss">(</span><span class="mi">600</span>,<span class="mi">600</span><span class="ss">)</span>
<span class="k">call</span> <span class="nl">vinit</span><span class="ss">()</span>
<span class="k">call</span> 