/\d/||print s/P+/-/g>s/K+//g?P:K,$/for<>