% main driver for using the Tree

import BinaryTree in "tree.tu"

var t : ^BinaryTree
new t

t -> Init


var k : string
var place : int

put "Enter tree nodes <place key>, -1 to finish"
loop
    get place
    exit when place < 0
    get k

    t -> InsertInPlace (place, k)
end loop

t -> PrintIt
put "This tree has ", t -> CountLeaves, " leaves."