line-mode
pop-a
lowercase-alphabet
ascii-digits
tail
    8
    take
t2
cartesian-product
f:
    push-a
        -
    z1
    product
    abs
    2
    =
}
unwords