//  Ces programmes sont sous licence CeCILL-B V1.
int valeur;
int periode;

// Cette fonction initialise le générateur
void origine(int graine) {
  int graineTronquee;
  graineTronquee = graine % periode;
  valeur = graineTronquee;
}
// Cette fonction crée et renvoie un nombre pseudo-aléatoire
// compris entre 0 et periode-1
int hasard() {
  valeur = (15 * valeur + 3% periode;
  return valeur;
}
// Cette fonction affiche periode valeurs pseudo-aléatoires
void main() {
  int i;
  periode = 7;
  origine(8);
  for(i = 1; i <= periode; i = i + 1)
	println(hasard());
}