GOTOPASMALIN %debut

troupeau Maillon
  pingouin suivant
  pingouin valeur
fintroupeau

troupeau Pile
  Maillon tete
  machineapingouins empile
  machineapingouins depile
fintroupeau

§empile:ASV(o):Pile
  Maillon newtete
  newtete@valeur = &o
  newtete@suivant = &tete
  tete = &newtete
APLUS

§depile:ASV:Pile
  pingouin v
  v = &tete@valeur
  tete = &tete@suivant
  REGOTO &v
APLUS

§debut
Pile pile
pile@empile(*(3))
pile@empile(*(5))
GOTOPRINTDUTEXTE() ; pile@depile() ; pile@depile()