|
MODULE '*tree'
|
|
|
|
PROC main()
|
|
DEF t:PTR TO integer_tree
|
|
NEW t.create(10)
|
|
t.add(-10)
|
|
t.add(3)
|
|
t.add(5)
|
|
t.add(-1)
|
|
t.add(1)
|
|
WriteF('t has \d nodes, with \d leaves: ',
|
|
t.nodes(), t.leaves())
|
|
t.leaves(TRUE)
|
|
WriteF('\n')
|
|
WriteF('Contents of t: ')
|
|
t.print()
|
|
WriteF('\n')
|
|
END t
|
|
ENDPROC
|