Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      '// Rule created with FromTo
      Dim rule1 = t.FromTo("Key: {@Number:val}", "{val}")
      
      '// Rule created with Pattern
      Dim rule2 = t.Pattern("<{tag}>{content}</{tag}>")
      
      Console.WriteLine($"Rule 1 Pattern: {rule1.Pattern}")
      Console.WriteLine($"Rule 2 Pattern: {rule2.Pattern}")
   End Sub
End Module