line-mode
read-num
37
base #(num to list)
ascii-digits
lowercase-alphabet
uppercase-alphabet
catenate #(list+list)
catenate #(list+list)
select