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