Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.ExpressionTransformer
      
      '// Enable RewindOnChange for all subsequently added rules
      t.DefaultRuleSet.RewindOnChange = true
      
      '// Define a chain of simple transformations
      t.FromTo("A", "B")
      t.FromTo("B", "C")
      t.FromTo("C", "D")
      
      '// The transformer should apply all rules in sequence: A -> B -> C -> D
      Dim result = t.Transform("A").Text
      Console.WriteLine($"Transform('A') -> {result}")
      Console.WriteLine($"Is correct: {result = "D"}")
   End Sub
End Module