Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine($"Initial: {uCalc.DefaultCount}")
      
      '// The implicit 'uc' is the first default. Pushing it again adds to the stack.
      uc.IsDefault = true
      Console.WriteLine($"After pushing 'uc' again: {uCalc.DefaultCount}")
      
      Dim ucB As New uCalc()
      ucB.IsDefault = true
      Console.WriteLine($"After pushing ucB: {uCalc.DefaultCount}")
      
      Dim ucC As New uCalc()
      ucC.IsDefault = true
      Console.WriteLine($"After pushing ucC: {uCalc.DefaultCount}")
      
      '// Clear all user-defined defaults, leaving only the mandatory root instance.
      uCalc.DefaultClear()
      Console.WriteLine($"After Clear: {uCalc.DefaultCount}")
   End Sub
End Module