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);