<pre>line-mode
words
extract-array
init
rrot
head
even
    length
    dec
    times #(list)
    &quot;0&quot;
f4
catenate #(list+list)
</pre>