open Int64 let rec f y?(o=y)x i=i>195||y>0L&f(div y 10L)~o(add(mul x 10L)(rem y 10L))i||o=x&(Printf.printf"%Ld\n"o;f(of_int(i+1))0L(i+1))||f(add x o)0L i;;f 1L 0L 1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).