<pre>lines
3
chunks
m:
    tail
    extract-array
    read-num
    abs
    times #(list)
    @2
    0
    &lt;
        reverse
    f1
    show-line
</pre>