import Data.List
import Control.Applicative

main = do
  as <- map (read :: String -> Int) . words <$> getLine
  putStrLn . solve . group $ sort as

solve pairs =
  let pair = length $ filter ((== 2) . length) pairs
      triple = length $ filter ((== 3) . length) pairs
  in case (pair, triple) of
      (1, 1) -> "FULL HOUSE"
      (2, 0) -> "TWO PAIR"
      (0, 1) -> "THREE CARD"
      (1, 0) -> "ONE PAIR"
      _ -> "NO HAND"