<>;print$_==int(sqrt)**2?P:K,$/for<>