import Control.Applicative ((<$>))
import Control.Monad (replicateM)

main :: IO ()
main = do
  n <- getl read
  solve <$> replicateM n (getl read) >>= putStrLn

solve :: [Int] -> String
solve xs = (\b -> if b then "T" else "F") . all (== 1) $ zipWith (\x y -> abs (x - y)) xs (0 : xs)

getl :: (String -> a) -> IO a
getl f = f <$> getLine