prog.ml
1: let rec cat () = 2: let try c = input_char stdin in 3: print_char c; 4: cat () 5: with End_of_file -> () 6: 7: let _ = cat ()
This document was generated using caml2html