Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim tokens = uc.ExpressionTokens
      Dim i As Integer = 0
      Dim literalToken As New uCalc.Item()
      
      Console.WriteLine("--- All Literal Tokens ---")
      Do
         literalToken = tokens.ByType(TokenType.Literal, i)
         If literalToken.NotEmpty() Then
            Console.WriteLine($"{i}: {literalToken.Name} - {literalToken.Regex}")
         End If
         i = i + 1
      Loop While literalToken.NotEmpty()
   End Sub
End Module