s_p_e :: Integer -> Integer -> String
s_p_e x y
    | s == p    = "E"
    | s > p     = "S"
    | otherwise = "P"
    where
        s = x + y
        p = x * y

main = do
    str <- getLine
    let [x, y] = map read $ words str :: [Integer]
    putStrLn $ s_p_e x y