p:?princ;c:(1+b:slength(a:?read\-line()))/2;sum((if i=c then p(a)else sum(p(if(j=i or j=c or j=b-i+1)then substring(a,i,i+1)else" "),j,1,b),p(" ")),i,1,b);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page