{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}

main :: IO ()
main = do
  n <- readLn
  ss <- map head . words <$> getLine
  putStrLn $ solve n ss

solve :: Int -> [Char] -> String
solve _ ss = if any (== 'Y') ss then "Four" else "Three"
