SimpleList: obj
List:
insert: -- if all code below is indented below List, compiler crash
in e: var integer
elem:
in x: var integer
in next: ref elem
head: ref Elem
V: var integer
scan:
current: var integer
P: ref Elem
Loop:
next: obj
--V: var integer
P: ref elem
loop:
L: obj List