Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim xVar = uc.DefineVariable("x = 123")
      Dim xVarPtr = uc.DefineVariable("xPtr As Double Ptr = AddressOf(x)")
      
      Console.WriteLine((xVarPtr.ValuePtr() = xVar.ValueAddr()))
   End Sub
End Module