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