character*99c;read*,n;read'(a)',c;do1 i=1,n;1 print'(999a1)',((c(j:j-min(i-1,n-i,k-1,n-k)),k=1,n),j=1,len_trim(c));end