import Control.Applicative
import Data.List

pair :: [Int] -> Int
pair [_,_,_] = 3
pair [_,_] = 1
pair _ = 0

main = do
	cards <- group . sort . map (read::String->Int) . words <$> getLine
	let hand = ["NO HAND", "ONE PAIR", "TWO PAIR", "THREE CARD", "FULL HOUSE"]
	putStrLn $ hand !! ((sum . map pair) cards)