let cat nom_fichier =
let f = open_in nom_fichier in
let rec cat_rec () =
try
print_string (input_line f); print_newline (); cat_rec ();
with End_of_file -> close_in f
in cat_rec ();;