import Control.Applicative ((<$>))
import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import Data.List
import Data.Char (isSpace)

main :: IO ()
main = do
  solve <$> B.words <$> B.getLine >>= putStrLn

solve :: [ByteString] -> String
solve [a, b]
  | a == zero && b == zero = "E"
  | a == two && b == two = "E"
  | a == zero || b == zero = "S"
  | a == one || b == one = "S"
  | otherwise = "P"
  where
    zero = B.pack "0"
    one = B.pack "1"
    two = B.pack "2"