<>;while(<>){
	$_=<>;
	$k=()=/K+/g;
	$p=()=/P+/g;
	print$k>=$p?K:P,$/;
}