1189841
1000
divmod
    over
    half
b2
10
times #(eval)
wrap-stack
tail
map-show
    5
    rjust
    7
    109
    ljust
m5
reverse
pairwise
reverse
m:
    "A"
    counter
    dec
    show
    catenate #(list+list)
    3
    ljust
    swap
    left-uncons
    show-space
    "x"
    rot
    show-line