let p=Printf.printf let rec($)c n=c=4&()=p"%.f "n;Obj.magic Scanf.scanf"%f%c"(fun i d->p"%.f %c "i"*+ -=".[d-d/6*6];d-d/6*6$[|n*.i+.0.;n+.i;i;n-.i;i|].(c));;1$0.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page