let p,q,x=Obj.magic(Printf.printf,Scanf.scanf,"failed at: %c%s
")let rec f(h::t)=q"%c"(fun c->c=10&(h=0&0=p"yes
"||p x 'E'"OL";f[0])||c*7mod 4<2&f(c::h::t)||h=c-2+41/c&f t||(q"%s
"(p x c);f[0]));;f[0]