import Data.Bool (bool)
import Control.Monad (replicateM)

solve :: [Int] -> String
solve ts
    | head ts /= 1 && head ts /= -1  = "F"
    | all (== 1) (map abs (zipWith (-) (tail ts) (init ts))) = "T"
    | otherwise = "F"

main = do
    n <- readLn
    ts <- map read <$> replicateM n getLine
    putStrLn $ solve ts