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