Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim strType = uc.DataTypeOf("String")
      
      '// Rule A (will be applied second)
      uc.Format("val = '[' + val + ']'")
      
      '// Rule B (will be applied first)
      uc.Format("val = 'inner:(' + val + ')'")
      
      Console.WriteLine($"Default layering: {uc.EvalStr("'text'")}")
      
      '// Rule C: Insert this rule at position 0, making it apply LAST.
      uc.Format("InsertAt: 0, Def: val = 'outer: {' + val + '}'")
      
      Console.WriteLine($"With InsertAt: {uc.EvalStr("'text'")}")
   End Sub
End Module