i,j;char t[999],c[];main(s){for(s=read(0,c,c);s+~i;)t[i]=t[s-1+s*i]=t[s*(s+~i)]=t[s*s+~i]=c[i++];for(;j