Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Fixed-size array of 3 doubles
      uc.DefineVariable("fixedArray[3]")
      uc.Eval("fixedArray[0]=1.1; fixedArray[1]=2.2; fixedArray[2]=3.3;")
      
      '// Array initialized with values; size and type are inferred
      uc.DefineVariable("initArray[] = {'a', 'b', 'c'}")
      
      Console.WriteLine($"Fixed Array Element 1: {uc.EvalStr("fixedArray[1]")}")
      Console.WriteLine($"Initialized Array Element 2: {uc.EvalStr("initArray[2]")}")
      Console.WriteLine($"Initialized Array Size: {uc.ItemOf("initArray").Count}")
   End Sub
End Module