line-mode
read-nums
    37
    base #(num to list)
        ascii-digits
        lowercase-alphabet
        uppercase-alphabet
        catenate #(list+list)
        catenate #(list+list)
        get
    m6
m4