open Num let () = let a, b = read_line () |> Str.split (Str.regexp_string " ") |> fun lst -> (List.nth lst 0, List.nth lst 1) |> fun (a, b) -> (num_of_string a, num_of_string b) in let s = a +/ b and p = a */ b in let ans = match compare_num s p with | -1 -> "P" | 1 -> "S" | _ -> "E" in print_endline ans