Scanf.scanf"%s
%s@0"(fun b s->let p,m=print_char,1005in
for i=0to m do"e"<b&()=p s.[i*2]||p s.[m*2-i-0/(m-i)]=p s.[i]done;for i=1to m do
p s.[2011-i*2]done)