val P="P"*readInt for(l<-Seq(P*3,P+" "*P.size+P,P*3,P,P);_<-P)println(l)