let command_on_files com files = let s = Printf.sprintf "%s %s" com (String.concat " " (List.map Filename.quote files)) in Cam_commands.eval_command s