Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      Dim tokens = t.Tokens
      
      Dim initialCount = tokens.Count
      Console.WriteLine($"1. Initial count: {initialCount}")
      
      '// Add a new token
      tokens.Add("custom_token")
      Console.WriteLine($"2. Count after Add: {tokens.Count}")
      
      '// Clear all tokens
      tokens.Clear()
      Console.WriteLine($"3. Count after Clear: {tokens.Count}")
      
      '// Add one token back
      tokens.Add(".")
      Console.WriteLine($"4. Count after adding one back: {tokens.Count}")
   End Sub
End Module