import Control.Monad
import Data.List
main=do
    _<-getLine
    s<-find (=='Y').map head.words<$>getLine::IO(Maybe Char)
    putStrLn $ case s of
                Just _ -> "Four"
                Nothing -> "Three"