$a[$_]++for glob<>;print/23/?'FULL HOUSE':/3/?'THREE CARD':/2/?($'?TWO:ONE).' PAIR':'NO HAND'for join'',sort@a