(* $Id *) (* Encapsulation d'un appel système Pour permettre le debuggage *) let call s = let _ = print_string s in Sys.command (s)