open Sys;;

let mon_cat () =

  for i = 1 to Array.length argv - 1 do
    (* Les erreurs sont fatales dans cet exemple... *)
    let filename = Sys.argv.(i) in
    let fd_in = Unix.openfile filename [Unix.O_RDONLY] 0o400 in
    copy_data fd_in Unix.stdout;
    Unix.close fd_in
  done;;

Unix.handle_unix_error mon_cat ();;