Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.FromTo("This is a {adjective: simple | small | nice } test",
      "The adjective in '{@Self}' is: {adjective}.")
      
      Console.WriteLine(t.Transform("This is a test"))
      Console.WriteLine(t.Transform("This is a simple test"))
      Console.WriteLine(t.Transform("This is a small test"))
      Console.WriteLine(t.Transform("This is a nice test"))
      Console.WriteLine(t.Transform("This is a random test"))
      
   End Sub
End Module