import Data.List
main = getLine >>= putStrLn . solve . sortBy (flip compare) . map length . group . sort . words

solve :: [Int] -> String
solve (3 : 2 : _) = "FULL HOUSE"
solve (3 : _) = "THREE CARD"
solve (2 : 2 : _) = "TWO PAIR"
solve (2 : _) = "ONE PAIR"
solve _ = "NO HAND"