Public Function ExpressionEvaluation(root As SMath.Manager.Term, args()() As SMath.Manager.Term, ByRef context As SMath.Math.Store, ByRef result() As SMath.Manager.Term) As Boolean Implements SMath.Math.IPluginLowLevelEvaluation.ExpressionEvaluation
        Dim bResult As Boolean
        Dim sValue As String
        Dim dTerms As Term()
        Dim tTerms(0) As Term
        Dim answer As New List(Of Term)
        Dim i As Integer
        Dim j As Integer

        bResult = False
        sValue = ""

        If root.Type = TermType.Function And root.Text = "ztest" Then
            For i = args.GetLowerBound(0) To args.GetUpperBound(0)
                sValue = sValue + "i=" + Str(i) + ": "
                For j = args(i).GetLowerBound(0) To args(i).GetUpperBound(0)
                    sValue = sValue + " j=" + Str(j) + ": <" + args(i)(j).ToString + ">"
                Next
                dTerms = Decision.Preprocessing(args(i), context)
                sValue = sValue + vbCrLf + "i=" + Str(i) + ": "
                sValue = sValue + ListTerms(dTerms)
            Next
            MsgBox(sValue)
            answer.AddRange(Converter.ToTerms("1")
            result = answer.ToArray()
            bResult = True
        ElseIf root.Type = TermType.Function And root.Text = "zsival" Then
            dTerms = Decision.Preprocessing(args(1), context)
            MsgBox(ListTerms(dTerms))
            context.AddDefinition(args(0)(0).ToString, dTerms, tTerms)
            answer.AddRange(dTerms)
            result = answer.ToArray()
            bResult = True
        End If

        Return bResult

    End Function

Dim tTerms(-1) As Term

Dim tTerms(0) As Term

        Dim tTerms(-1) As Term

      
        Dim tTerms As Term()
        tTerms = New Term() {}
        context.AddDefinition(args(0)(0).ToString, dTerms, tTerms)