36
range1
tail
m:
    256
    inc
    swap
    base #(num to list)
    ascii-digits
    uppercase-alphabet
    catenate #(list+list)
    select
    show-line