printable-ascii
swap
left-uncons
save-c
diff #(list-elem)
and
m:
    tuck-c
        pop-b
        push-a
            push-b
            =
        m2
        binary #(list to num)
    t5
    21
    19
        shift-left
        @0
        |
        10
        shift-right
    t5
    &
    popcnt
    show-space
    push-b
    @0
    copies
    new-line