line-mode
    ascii-digits
    uppercase-alphabet
    catenate #(list+list)
    index
m4
sum
inc
12
base #(num to list)
@5
select
0
logical-or