pour depart 
rg vg vc vt ct 
donne "L [adieu veau vache cochon couve] 
ec[La liste comprend les lments :] 
ec[ ] ec :L ec[ ] 
ec[Taper le nom  ter de la liste:] 
ec[ ] donne "Chose pr lisliste 
donne "L OterChoseListe :Chose :L ec[ ] 
ec[ ]ec[ ] 
ec[Nouvelle liste abrge :]ec[ ] 
ec :L ec[ ] fin 

pour OterChoseListe :Chose :L 
si vide? :L [ra [ ]] 
si egal? :Chose pr :L [ra sp :L] 
ra mp pr :L OterChoseListe :Chose sp :L fin 

e-mail : jean-daniel.greub@edu.ge.ch
http://www.geocities.com/ordiecole2/logowrit/listes2.htm
