Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Use {@Literal} to match either numbers or strings
      t.FromTo("{@Alpha:key} = {@Literal:val}", "Set {key} to {val}")
      
      Console.WriteLine(t.Transform("Timeout = 100"))      '// Output: Set Timeout to 100
      Console.WriteLine(t.Transform("Name = 'Admin'"))     '// Output: Set Name to 'Admin'
   End Sub
End Module