import Data.List (sort, group)

judge :: Ord a => [a] -> String
judge cs = judge' $ reverse $ sort $ map length $ group $ sort $ cs
    where
        judge' (3 : 2 : _) = "FULL HOUSE"
        judge' (3 : _) = "THREE CARD"
        judge' (2 : 2 : _) = "TWO PAIR"
        judge' (2 : _) = "ONE PAIR"
        judge' _ = "NO HAND"

main :: IO ()
main = putStrLn . judge . words =<< getLine