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