Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.FromTo("{@String}", "<Any quoted {@Self}>")
      t.FromTo("({@Token(String_Singlequoted)})", "<Single quoted {@Self}>")
      t.FromTo("({@Token(String_Doublequoted)})", "<Double quoted {@Self}>")
      
      Dim s = """Test"" '123' (""abc"") ('xyz')"
      Console.WriteLine(t.Transform(s))
   End Sub
End Module