right-uncons
itemize
pop-d
read-num
save-a
range1
tail
@0
reverse
tail
catenate #(list+list)
@5
times #(list)
@1
2
-
drop
    push-d
    swap
    rjust
    push-a
    ljust
m5
transpose
    reverse
    counter
    dec
    drop
    reverse
m5
reverse
unlines