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]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page