Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         '// Define a rule to replace the alphanumeric token 'x' with 'value'
         t.FromTo("x", "value")
         
         Dim code = "x = 10; print(""The max value is x."");"
         
         '// The Transformer correctly identifies that the first 'x' is a variable token
         '// and the second 'x' is part of a string literal token.
         '// The replacement is only applied to the variable.
         Console.WriteLine(t.Transform(code))
      End Using
   End Sub
End Module