import Data.List

func227 [] = [0]
func227 ls = c : func227 ls'
    where
        c = length $ filter (== head ls) ls
        ls' = drop c ls

solve xs
    | hr1 == 3 && hr2 == 2  = "FULL HOUSE"
    | hr1 == 3              = "THREE CARD"
    | hr1 == 2 && hr2 == 2  = "TWO PAIR"
    | hr1 == 2              = "ONE PAIR"
    | otherwise             = "NO HAND"
    where
        result = (reverse . sort . func227) xs
        hr1 = head result
        hr2 = (head . tail) result

main = getLine >>= putStrLn . solve . sort . map (read :: String -> Int) . words