Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim plus_op = uc.ItemOf("+", uCalc.Properties(ItemIs.Infix))
      Dim mul_op = uc.ItemOf("*", uCalc.Properties( ItemIs.Infix))
      
      Console.WriteLine($"Precedence of '+': {plus_op.Precedence}")
      Console.WriteLine($"Precedence of '*': {mul_op.Precedence}")
      Console.WriteLine($"Does '*' bind tighter than '+'? {mul_op.Precedence > plus_op.Precedence}")
   End Sub
End Module