import           Data.List (group, sort)

main :: IO ()
main = do
    n <- readLn :: IO Int
    s <- getLine
    let m = length. group . sort
--    print $ group . sort $ s
    putStrLn $ if m s <= 4 then "Three" else "Four"
