Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim myRule = t.FromTo("Hello", "Hi")
      myRule.Description = "Simple greeting replacement"
      
      Console.WriteLine($"Rule Pattern: {myRule.Pattern}")
      Console.Write("Rule Description: ")
      Console.Write(myRule.Description)
   End Sub
End Module