reverse
pairwise
    cmp
dm1
    +
b1
scan
save-b
min
16
crange
m:
    pop-c
    push-b
        push-c
        =
    m2
    binary #(list to num)
    binary #(num to list)
    reverse
    push-a
    zip
        right-uncons
        times #(list)
        1
        ljust
    m4
    show-line