Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim tokens = uc.ExpressionTokens
      
      '// There is only one Alphanumeric token, so index 1 is out of bounds.
      Dim outOfBoundsToken = tokens.ByType(TokenType.AlphaNumeric, 1)
      
      Console.WriteLine($"Is token empty? {outOfBoundsToken.IsEmpty()}")
      Console.WriteLine($"Was token found? {not outOfBoundsToken.IsProperty(ItemIs.NotFound)}")
   End Sub
End Module