Alapfüggvények, -eljárások
first :lista (elsõ)
butfirst :lista (elsõutáni)
fput :elem :lista (elsõnek)
kiir
empty? :lista (ürese)
list? (eleme-e)
Eljárások (összetettebbek)
tanuld végelem: lista
ha üres? en:lista [er first lista]~ ;en = elsõnélküli
[er végelem en:lista]
vége
tanuld végnélkül: lista
ha üres? en : lista [er []]~
[er fput first:lista végnélkül butfirst:lista]
vége
tanuld végére : elem: lista
ha üres?:lista [er fput:elem:lista]~
~[er fput first:lista végére elem:lista]
vége
tanuld elemszámol : lista
ha üres? : lista [ er 0]~
[er 1+ elemszámol en:lista
vége
tanuld SzigetSzámol
ha üres? en:lista[er 0]~
[ha és= first:lista 0 <>first butfirst:lista 0]
[er 1+szigetszámol butfirst:lista]
[er szigestszámol butfirst lista]
vége