read-num
pop-a
2
37
crange
m:
    tuck-a
    base #(num to list)
    ascii-digits
    lowercase-alphabet
    catenate #(list+list)
    select
    new-line