Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine(uc.DataTypeOf("double").IsDefault)
      Console.WriteLine(uc.DataTypeOf("int64").IsDefault)
      Console.WriteLine(uc.DefaultDataType.Name)
      Console.WriteLine("---")
      
      uc.DataTypeOf("int64").IsDefault = true
      
      Console.WriteLine(uc.DataTypeOf("double").IsDefault)
      Console.WriteLine(uc.DataTypeOf("int64").IsDefault)
      Console.WriteLine(uc.DefaultDataType.Name)
      Console.WriteLine("---")
      
      uc.DataTypeOf("int64").IsDefault = false
      
      Console.WriteLine(uc.DataTypeOf("double").IsDefault)
      Console.WriteLine(uc.DataTypeOf("int64").IsDefault)
      Console.WriteLine(uc.DefaultDataType.Name)
   End Sub
End Module