main = putChar . (\x -> case x of GT -> 'S'; LT -> 'P'; EQ -> 'E') . (compare <$> ((+) <$> head <*> last) <*> ((*) <$> head <*> last)) =<< map read . words <$> getLine