line-mode
words
        ascii-digits
        uppercase-alphabet
        catenate #(list+list)
        save-a
        index
    m5
    10
    base #(list to num)
m4
sum
digits
        dup
            inc
            -
            10
        b3
        unless
    m4
    16
    base #(list to num)
    16
    base #(num to list)
b6
2
times #(eval)
push-a
select