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