let copy_file src dest =
  let ic = open_in src in
  let oc = open_out dest in
  try
    while true do
      let line = input_line ic in
      output_string oc line;
      output_char oc '\n'
    done
  with
    Sys_error m ->
    print_endline "error"