Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      
      '// Define multiple rules with the same anchor ("Log:")
      t.FromTo("Log: {msg}", "DEFAULT: {msg}")
      t.FromTo("Log: ERROR {msg}", "CRITICAL: {msg}")
      Dim lastRule = t.FromTo("Log: INFO {msg}", "INFO: {msg}") '// This has the highest priority
      
      Console.WriteLine("--- Overload Chain for 'Log:' anchor ---")
      Dim currentRule = lastRule
      Do
         Console.WriteLine($"Pattern: '{currentRule.Pattern}' -> Replacement: '{currentRule.Replacement}'")
         currentRule = currentRule.NextOverload()
      Loop While currentRule.NotEmpty()
   End Sub
End Module