#!/usr/bin/env perl use strict; use warnings; my ($x, $y) = split / /, <>; chomp $y; if ($x == 2 && $y == 2) { print "E\n"; } elsif ($x == 0 && $y == 0) { print "E\n"; } elsif ($x <= 1 || $y <= 1) { print "S\n"; } else { print "P\n"; }