import Data.List(nub)

sCount :: [String] -> String
sCount cs = if n == 3 then
              "Three"
            else
              "Four"
  where
    n = length $ nub cs

main = do
  ns <- lines <$> getContents
  putStrLn $ sCount (words $ last ns)