MODULE Essai; IMPORT STATUNIF; PROCEDURE Generateur () : LONGREAL; BEGIN (* Code de votre g\'en\'erateur ... *) RETURN 1.0 END Generateur; BEGIN STATUNIF.SetGener01 (Generateur, "Mon cher generateur"); \vdots END Essai.