-- yukicoder My Practice
-- author: Leonardone @ NEETSDKASU

main = interact $ (!!) ("T": repeat "F") . length . filter (/= 1) . map abs . foldl1 (zipWith (-)) . zipWith ($) [(:) 0, id] . replicate 2 . map read . tail . words