let init n f =
  let rec loop i l = if i < n then loop (i + 1) (f i :: l) else l in
  List.rev (loop 0 [])

let n = Scanf.scanf "%d\n" (fun n -> n)
let ps = init n (fun _ -> Scanf.scanf " %c" (fun c -> c = 'T'))
let b = match ps with
    p :: ps -> List.fold_left (fun b p -> not b || p) p ps
  | _ -> raise (Failure "")
let () = if b then
           print_endline "T"
         else
           print_endline "F"

