BinaryTreeMerge: obj
maxInt: val
BinTree:
Node: -- The nodes of the binary tree}
in elem: var Integer
left: ref Node
right: ref Node
insert:
in V: var integer
root: ref Node
next:
out V: var Integer
insert:
in V: var integer
Traverse: obj
next: var integer
Scan:
in current: ref Node
b1: obj BinTree
b2: obj Bintree
e1: var integer
e2: var Integer
Merge: