let m=Obj.magic
let rec e()=match input_byte stdin/2with
5->e()|48->e()^m e()|57->m(fun a b c->b c^a c)|53->m(fun a b->a)|_->fun a->a and
f()=Printf.printf"%d
"(e()((+)1)0);f()and(^)x y=y x;;f()