"n\")*";;let rec f i x=print_char(Obj.magic Printf.sprintf x x).[195-abs i];f(i-1)x;;f 195"\"n\\\")*\";;let rec f i x=print_char(Obj.magic Printf.sprintf x x).[195-abs i];f(i-1)x;;f 195%S;(*(";(*(*(;"(*(;S%591 f;;x)1-i(f;]i sba-591[.)x x ftnirps.ftnirP cigam.jbO(rahc_tnirp=x i f cer tel;;"\*)"\\\n"\"591 f;;x)1-i(f;]i sba-591[.)x x ftnirps.ftnirP cigam.jbO(rahc_tnirp=x i f cer tel;;"*)"\n"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).