module Main where

import Control.Monad

main :: IO ()
main = do
    t <- readLn
    xs <- replicateM t readLn :: IO [Int]
    if any (\(a, b) -> abs (a - b) /= 1) $ zip (0:xs) xs
        then putStrLn "F"
        else putStrLn "T"