1
1
    2dup
    +
b2
100
times #(eval)
wrap-stack
map-show
flatten
    dec
    5
    *
    counter
    !=
f5
pop-a
0
itemize
itemize
        push-a
        left-uncons
        nip-a
        read-num
        left-cons
    m5
    reverse
    transpose
b4
46
times #(eval)
reverse
    unwords
m1
unlines