Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine(uc.DataTypeOf("10 + 20 - 3").Name)
      Console.WriteLine(uc.DataTypeOf(" 'What type ' + 'is this?' ").Name)
      Console.WriteLine(uc.DataTypeOf("3 < 10").Name)
      Console.WriteLine(uc.DataTypeOf("5 + 7 * #i").Name)
      Console.WriteLine("---")
      
      uc.DefineFunction("func(x) as string = 'Hello' * 3")
      Console.WriteLine(uc.DataTypeOf("func").Name)
      Console.WriteLine(uc.DataTypeOf("Int").Name)
      Console.WriteLine(uc.DataTypeOf("NonExistantType").Name) '// Empty string
      Console.WriteLine(uc.DataTypeOf("&&").Name)
      
      
   End Sub
End Module