b=nchar(a<-scan("stdin","")) c=b/2+.5 for(i in 1:b){if(i==c)cat(a)else{for(j in 1:b)cat("if"(j==i||j==c||j==b-i+1,substr(a,i,i)," "))};cat(" ")}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page