Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Text = "The quick brown fox."
      
      '// 1. Define the original rule
      Dim ruleV1 = t.FromTo("brown", "BROWN_V1")
      Console.WriteLine($"Initial transform: {t.Transform()}")
      
      '// 2. Define a new rule with the same pattern, shadowing the original
      t.Text = "The quick brown fox."
      Dim ruleV2 = t.FromTo("brown", "BROWN_V2")
      Console.WriteLine($"After shadowing: {t.Transform()}")
      
      '// 3. Release the new rule. The original rule should become active again.
      t.Text = "The quick brown fox."
      ruleV2.Release()
      Console.WriteLine($"After release (reverted): {t.Transform()}")
   End Sub
End Module