main :: IO ()
main = do
  [a, b] <- fmap (map read . words) getLine
  putStrLn $ case (a + b) `compare` (a * b) of
               GT -> "S"
               LT -> "P"
               EQ -> "E"