<pre>read-num
4
copies
    counter
    !=
    w( &quot;dear anagol&quot; &quot;to you&quot; )
    get
    ( &quot;Happy birthday &quot; )
    left-cons
m6
&quot;,&quot;
show-line
join
&quot;!&quot;
</pre>