right-uncons
itemize
pop-d
read-num
save-a
range1
reverse
init
@1
init
catenate #(list+list)
push-a
dec
times #(list)
@6
catenate #(list+list)
    tuck-d
    rjust
    push-a
    ljust
m4
transpose
    show-line
    counter
    negate
    take
m4
reverse
unlines