w( "ABDEGHILMNRSTWXY" "AEIOY" "" "EO" "DFHLMNRSTX" "AE" "O" "AEIMO" "DFNST" "O" "AI" "AIO" "AEIMOUY" "AEOU" "DEFHIMNPRSWXY" "AEI" "I" "E" "HIO" "AIO" "HMNPST" "" "EO" "IU" "AEO" "A" )
uppercase-alphabet
zip
m:
    dump
    catenate #(elem+list)
    {
        over
        space
        swap
    }
    fold
    diff #(list-elem)
    smallest
    new-line