Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      Dim text As String = "(this and that) <this or that>"
      t.Text = text
      
      '// Define two rules
      Dim rule1 = t.FromTo("({txt})", "#{txt}#")
      Dim rule2 = t.FromTo("<{txt}>", "${txt}$")
      
      '// Transform with both rules active
      Console.WriteLine(t.Transform())
      
      '// Release the first rule
      rule1.Release()
      
      '// Re-run the transformation; only the second rule applies
      t.Text = text
      Console.WriteLine(t.Transform())
   End Sub
End Module