left-uncons
read-num
save-a
copies
    tail
    counter
    rjust
    push-a
    ljust
m5
init
@0
reverse
init
catenate #(list+list)
push-a
dec
times #(list)
@6
catenate #(list+list)
transpose
m:
    s( " *$" "" )
    new-line