Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim myVar = uc.DefineVariable("x")
      Dim expr = uc.Parse("x * 2")
      
      Dim i = 0
      For i  = 1 To 5
         myVar.Value(i)
         Console.WriteLine($"When x is {i}, result is: {expr.Evaluate()}")
      Next
   End Sub
End Module