Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Pattern: "Set" followed by (Color OR (Size followed by Big/Small))
      t.FromTo("Set {prop: Color | Size { Big | Small } }", "Property: {prop}")
      
      Console.WriteLine(t.Transform("Set Color"))
      Console.WriteLine(t.Transform("Set Size Big"))
      Console.WriteLine(t.Transform("Set Size Small"))
   End Sub
End Module