module Main where

import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    getLine
    ss <- getLine
    if any (== 'Y') ss
        then putStrLn "Four"
        else putStrLn "Three"