function STACK_EMPTY(S)
if S.top ==
0
then
return
true
end
return
false
end
function PUSH(S,x)
S.top = S.top +
1
S[S.top] = x
end
function POP(S)
if STACK_EMPTY(S)
then
return(
'underflow')
else
S.top = S.top -
1
local v = S[S.top+
1]
S[S.top+
1] =
nil
return v
end
end