Imports System Imports uCalcSoftware Public Module Program Public Sub Main() Dim uc As New uCalc() Dim t = uc.ExpressionTransformer t.FromTo("({op:1} {a:1} {b:1})", "({a} {op} {b})") Console.WriteLine("LISP: (+ 10 20)") Console.WriteLine($"uCalc: {t.Transform("(+ 10 20)")}") Console.WriteLine($"Result: {uc.Eval("(+ 10 20)")}") End Sub End Module