maple_mode(0);
Sortie:=fopen("xcass.tex");
read("xcass.code");
Resultat:=cat("loibinomiale();");
Resultat:=expr(Resultat);
fprint(Sortie,Unquoted,Resultat);
fclose(Sortie);