import Control.Monad

main :: IO ()
main = do
    --n <- readLn :: IO Int
    n <- return . read =<< getLine :: IO Int
        
    --xs <- replicateM n readLn :: IO [Int]
    xs <- return . map read =<< replicateM n getLine :: IO [Int]

    let ans = solve xs
    putStrLn ans

solve :: [Int] -> String
solve xs = solve_rec (0:xs)
    where
        solve_rec (_:[]) = "T"
        solve_rec (x1:x2:xs)
            | abs (x1 - x2) == 1 = solve_rec (x2:xs)
            | otherwise = "F"