; Create an empty stack
Global $STACK
$STACK=NULL()
        
; Call wrapper function
fnWrapper()
        
Function fnWrapper()
        ; Push three elements onto the stack
        ; The first push will implicity create the stack
        fnPush("STACK","a")
        fnPush("STACK","b")
        fnPush("STACK","c")
        
        ; Pop all the elements off the stack
        $sPopped=fnPop("STACK")
        While(VarType($sPopped)<>0)
                "Popped element: " + $sPopped ?
                $sPopped=fnPop("STACK")
        Loop
        
EndFunction
        
Function fnPush($sArrayName,$vElement)
        Dim $i                  ; Local integer
        
        $nul=Execute("$$i=VarType($$$sArrayName)")
        If ($i & 8192)
                $nul=Execute("$$i=UBound($$$sArrayName)")
        Else
                $i=1
        EndIf
        $nul=Execute("Redim Preserve $$$sArrayName[$i+1]")
        ; Assign pushed value.
        $nul=Execute("$$$sArrayName[$i]=$$vElement")
EndFunction
        
Function fnPop($sArrayName)
        Dim $i                  ; Local integer
        
        $nul=Execute("$$i=VarType($$$sArrayName)")
        If ($i & 8192)
                $nul=Execute("$$i=UBound($$$sArrayName)-1")
                $nul=Execute("$$fnPop=$$$sArrayName[$i]")
                ; If there are b
                If $i
                        $nul=Execute("Redim Preserve $$$sArrayName[$i]")
                Else
                        $nul=Execute("$$$sArrayName=NULL()")
                EndIf
        EndIf
EndFunction
        
; This function does nothing but return an empty value.
Function NULL()
        return
EndFunction