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("")
      Console.WriteLine("Resetting...")
      t.Reset()
      
      Console.WriteLine($"Input after reset: {t}(empty)")
      t.Text = "a b c d e"
      Console.WriteLine($"New input: {t.Text}")
      Console.WriteLine($"Transform after reset: {t.Transform().Text} (no rules exist)")
      
      Console.WriteLine("")
      Console.WriteLine("Defining new rules...")
      t.FromTo("b", "ABC")
      t.FromTo("d", "DDD")
      Console.WriteLine($"Final transformed: {t.Transform().Text}")
   End Sub
End Module