Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("Status: { OK | Error | Pending }", "Found Valid Status")
      
      Console.WriteLine(t.Transform("Status: OK"))
      Console.WriteLine(t.Transform("Status: Error"))
      Console.WriteLine(t.Transform("Status: Fail"))
   End Sub
End Module