import Control.Monad (replicateM)

diff :: Num a => [a] -> [a]
diff xs = zipWith (-) (tail xs) (init xs)

judge :: Integral a => [a] -> Bool
judge = all (== 1) . fmap abs . diff

main :: IO ()
main = do
    t <- readLn :: IO Int
    xs <- replicateM t readLn :: IO [Int]
    putStrLn $ if judge xs then "T" else "F"