Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Initial state: Double is the default
      Console.WriteLine($"Double is default: {uc.DataTypeOf("double").IsDefault}")
      Console.WriteLine($"Int64 is default: {uc.DataTypeOf("int64").IsDefault}")
      Console.WriteLine($"Current default: {uc.DefaultDataType.Name}")
      Console.WriteLine("---")
      
      '// Set Int64 as the default
      uc.DataTypeOf("int64").IsDefault = true
      Console.WriteLine($"Double is default: {uc.DataTypeOf("double").IsDefault}")
      Console.WriteLine($"Int64 is default: {uc.DataTypeOf("int64").IsDefault}")
      Console.WriteLine($"Current default: {uc.DefaultDataType.Name}")
      Console.WriteLine("---")
      
      '// Revert back to Double by un-setting Int64
      uc.DataTypeOf("int64").IsDefault = false
      Console.WriteLine($"Double is default: {uc.DataTypeOf("double").IsDefault}")
      Console.WriteLine($"Int64 is default: {uc.DataTypeOf("int64").IsDefault}")
      Console.WriteLine($"Current default: {uc.DefaultDataType.Name}")
   End Sub
End Module