for(a in strsplit(rep(c(s<-"PPP","P  P",s,"P","P"),,,n<-scan("stdin")),""))write(rep(a,,,n),1,99,,"")