import Control.Monad
import Text.Printf
import Control.Applicative

main :: IO()
main = do
    _ <- getLine
    s <- map read.words <$> getLine
    printf "%s" $ if elem 'Y' s then "Four" else "Three" 
