let main () =
match Filename.basename Sys.argv.(0) with
+ | "gragrep" | "gragrep.opt" -> Gragrep.main ()
| "matitadep" | "matitadep.opt" -> Matitadep.main ()
| "matitaclean" | "matitaclean.opt" -> Matitaclean.main ()
| "matitamake" | "matitamake.opt" -> Matitamake.main ()