<pre>line-mode
read-num
&quot;=&quot;
6
&quot;*&quot;
4
pick
inc
6
divmod
45
swap
-
itemize
1
7
make-array
unwords
</pre>