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