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.