( "HW" )
uppercase-alphabet
xor
tail
tail
reverse
@1
catenate #(list+list)
m:
    inc
    pop-a
    uppercase-alphabet
    {
        dup2
        push-a
        >
        &
        @0
        push-a
        !=
        >=
            negate
        f1
    }
    sort #(list,block)
    new-line