n=scan("stdin") for(i in strsplit(c("PPP","P P","PPP","P","P"),""))write(rep(i,n,,n),1,n*length(i),,"")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page