($a,$b)=sort{$a-$b}glob<>; print$a&1&&$a==$b-1?Q:P