module Main where

import Control.Monad

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