module Main where

main :: IO ()
main = getList >>= putStrLn . solve

solve :: [String] -> String
solve ["0", "0"] = "E"
solve ["2", "2"] = "E"
solve xs | elem "0" xs = "S"
         | elem "1" xs = "S"
         | otherwise   = "P"

getList :: IO [String]
getList = words <$> getLine