Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define a variable and a function
      uc.DefineVariable("myVar As Int16 = 55")
      uc.DefineFunction("myFunc(x) = x * 10.5") '// Implicitly returns Double
      
      '// Inspect their types dynamically
      Dim typeVar = uc.DataTypeOf("myVar")
      Dim typeFunc = uc.DataTypeOf("myFunc")
      
      Console.WriteLine($"Variable Type: {typeVar.Name}")
      Console.WriteLine($"Function Return: {typeFunc.Name}")
      
      '// Check specific properties
      If typeVar.BuiltInTypeEnum = BuiltInType.Integer_16 Then
         Console.WriteLine("Variable is strictly a 16-bit integer.")
      End If
   End Sub
End Module