1000
range1
    binary #(num to list)
    left-uncons
    catenate #(list+elem)
    lowercase-alphabet
    select
m5
    m( "aa" )
    not
f2
100
take
unlines