read-num
save-a
range1
init
save-b
m:
    itemize
    push-b
    cartesian-product
        product
        push-a
        base #(num to list)
            ascii-digits
            uppercase-alphabet
            catenate #(list+list)
            get
        m4
    m5
        3
        rjust
    m2
    show-line