main = do a <- map read . words <$> getLine let s = sum a let p = product a putStrLn $ if s > p then "S" else if s == p then "E" else "P"