let remove_files files =
  match files with
    [] ->
      ([], [])
  | files ->
      let f (acc_ok, acc_ko) file =
        let d = Filename.dirname file in
        let f = Filename.basename file in
        let com = Printf.sprintf "cd %s ; cvs remove %s -f %s"
            (Filename.quote d)
            !Ocvs_config.remove_options
            (Filename.quote f)
        in
        let n = Sys.command com in
        if n = 0 then
          (acc_ok @ [file], acc_ko)
        else
          (acc_ok, acc_ko @ [file])
      in
      List.fold_left f ([], []) files