struc Node
  dim typ$
  dim value#
  dim Node& left
  dim Node& right
endstruc

sub NewNode(Node& root,t$,v#)
  root.typ$=t$
  root.value#=v#
  alloc root.left
  alloc root.right
end sub

dim Node root
NewNode(root      ,"a", 1.0)
NewNode(root.left ,"b", 2.0)
NewNode(root.right,"c", 3.0)

printr root.typ$ + "," + root.value#
printr root.left.typ$ + "," + root.left.value# 
printr root.right.typ$ + "," + root.right.value#

function &new(size)()
    dim &a(),i
    alloc a, size
    for i=0 to size-1
      a(i)=i
    next   
    return &a
end function

dim i,&a()

&a = new(10)

for i =0 to 9
  printr a(i)
next