let rec f?(c=input_byte stdin)(hd::tl)=c=99&f((hd+1)::hd::tl);c=61||f(hd::tl);Printf.printf"%d
"hd;f tl;;f[-1]