Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Use {s(1)} to get just the text inside the quotes
      t.FromTo("msg = {@String:s}", "<message>{s(1)}</message>")
      
      Dim input As String = "msg = ""Welcome to uCalc!"""
      Console.WriteLine(t.Transform(input))
   End Sub
End Module