left-uncons
read-num
save-a
copies
    tail
    counter
    ljust
    push-a
    rjust
m5
init
@0
reverse
init
catenate #(list+list)
push-a
times #(list)
transpose
    3
    counter
    -
    take
m4
reverse
unlines