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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page