Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "A B C A B C"
      
      Dim ruleA = t.Pattern("A")
      Dim ruleB = t.Pattern("B")
      
      t.Find()
      
      Console.WriteLine($"Total matches (all rules): {t.Matches.Count()}")
      Console.WriteLine($"Matches for Rule A only: {ruleA.Matches.Count()}")
      Console.WriteLine($"Matches for Rule B only: {ruleB.Matches.Count()}")
   End Sub
End Module