template container
  as t1 var1
  declare function get() as t1
  declare sub p()
end template


function container.get() as t1
  return var1
end function

sub container.p()
  print var1
end sub






dim as container<<<string>>> c 

c.var1 = "Hallo"

print c.var1
sleep