import Control.Applicative

main :: IO ()
main = do
  _ <- getLine
  ss <- words <$> getLine
  putStrLn $ slove ss

slove :: [String] -> String
slove ss
  | "Y" `elem` ss = "Four"
  | otherwise     = "Tree"
