Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Create two transformers with different token configurations
      Dim strict_t As New uCalc.Transformer()
      strict_t.Tokens.Description = "Strict Mode: only 'is' as a whole word."
      
      Dim flexible_t As New uCalc.Transformer()
      flexible_t.Tokens.Description = "Flexible Mode: matches 'is' inside other words."
      flexible_t.Tokens.Clear()
      flexible_t.Tokens.Add(".") '// Match by character
      
      Dim text As String = "This island is nice."
      
      strict_t.FromTo("is", "[MATCH]")
      flexible_t.FromTo("is", "[MATCH]")
      
      Console.WriteLine(strict_t.Tokens.Description)
      Console.WriteLine($"Result: {strict_t.Transform(text)}")
      Console.WriteLine("")
      Console.WriteLine(flexible_t.Tokens.Description)
      Console.WriteLine($"Result: {flexible_t.Transform(text)}")
   End Sub
End Module