Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.FromTo("a {txt} c", "<{@Self}>") '// Quoted text treated as 1 token
      t.FromTo("x {txt`} z", "<{@Self}>") '// Quotes treated as ordinary chars
      
      Console.WriteLine(t.Transform("a 'b c' b c :: x 'y z' y z"))
   End Sub
End Module