(* Supprime un fichier. Exemple d'utilisation : remove "/home/me/file" *) let remove file = match Sys.file_exists file with | true -> Sys.remove file | false -> raise Not_found