2
chunks
pop-a
lowercase-alphabet
m:
    itemize
    lowercase-alphabet
    swap
    cartesian-product
        push-a
        member
    m2
    reverse
    binary #(list to num)
    binary #(num to list)
    reverse
    ( " #" )
    select
    show-line