Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim txt = "a b c d e"
      
      t.Text = txt
      t.FromTo("a", "aaa")
      t.FromTo("c", "xyz")
      
      Console.WriteLine($"Input: {t}")
      Console.WriteLine($"Transformed: {t.Transform()}")
      
      Console.WriteLine("Reset")
      t.Reset()
      
      Console.WriteLine($"Input: {t}(empty)")
      t.Text = "a b c d e"
      Console.WriteLine($"New input: {t.Text}")
      Console.WriteLine($"Transformed: {t.Transform().Text} (no transform)")
      Console.WriteLine("New rules")
      
      t.FromTo("b", "ABC")
      t.FromTo("d", "DDD")
      Console.WriteLine($"Transformed: {t.Transform().Text}")
      
   End Sub
End Module