Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.DefaultRuleSet.CaseSensitive = false
      
      '// Define a rule to capture the duration and unit
      t.FromTo("set timer for {@Number:duration} {unit}", "INTENT:SET_TIMER DURATION:{duration} UNIT:{unit}")
      
      Dim command = "set timer for 10 seconds"
      Console.WriteLine(t.Transform(command))
   End Sub
End Module