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 multiple rules for different intents
      t.FromTo("play music by {artist}", "INTENT:PLAY_MUSIC ARTIST:{artist}")
      t.FromTo("play the song {song_title}", "INTENT:PLAY_MUSIC SONG:{song_title}")
      t.FromTo("set an alarm for {time}", "INTENT:SET_ALARM TIME:{time}")
      
      Console.WriteLine(t.Transform("play music by Queen"))
      Console.WriteLine(t.Transform("play the song Bohemian Rhapsody"))
      Console.WriteLine(t.Transform("set an alarm for 7 am"))
   End Sub
End Module