import Control.Monad
import Control.Applicative
import Data.List
import Data.Ord

main :: IO ()
main = do
  c <- map read . words <$> getLine
  putStrLn $ id solve c

solve = check . sortbymatch

check (x:xs)
  | length(x) == 3 && maxlen(xs) == 2 = "FULL HOUSE"
  | length(x) == 3  = "THREE CARD"
  | length(x) == 2 && maxlen(xs) == 2  = "TWO PAIR"
  | length(x) == 2 = "ONE PAIR"
  | otherwise = "NO HAND"

maxlen :: [[Int]] -> Int
maxlen [x] = length(x)
maxlen (x:xs) = max (length(x)) (maxlen(xs))

sortbymatch xs = sortBy (flip $ comparing length) $ group $ sort xs