line-mode
lowercase-alphabet
push-a
and
dup
cartesian-product
    extract-array
    2dup
    -
    ( "=<<>>" )
    get
    swap
m6
3
chunks
nip-b
f:
    push-b
    over
    {
        pair
        @1
        95
        !=
        get
    }
    zipwith
    =