Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Get the infix (subtraction) operator and check its operand count
      Dim infixOp = uc.ItemOf("-", uCalc.Properties(ItemIs.Infix))
      Console.Write("Infix '-' operator has ")
      Console.Write(infixOp.Count)
      Console.WriteLine(" operand(s).")
      
      '// Get the prefix (negation) operator
      Dim prefixOp = uc.ItemOf("-", uCalc.Properties(ItemIs.Prefix))
      Console.Write("Prefix '-' operator has ")
      Console.Write(prefixOp.Count)
      Console.WriteLine(" operand(s).")
   End Sub
End Module