thousand
    112
    %
m3
empty-list
swap
    words
    reverse
    transpose
    unlines
        over
        is-digit
            @2
            inc
            smallest
        f3
    m4
b6
16
times #(eval)