read-num
save-a
dec
dup
range1
2
repeat-product
m:
    product
    push-a
    base #(num to list)
    ascii-digits
    uppercase-alphabet
    catenate #(list+list)
    select
    3
    rjust
}
chunks
unlines