20 lines
255 B
Text
20 lines
255 B
Text
stack[] = [ ]
|
|
proc push v .
|
|
stack[] &= v
|
|
.
|
|
func pop .
|
|
lng = len stack[]
|
|
if lng = 0 : return 0 / 0
|
|
r = stack[lng]
|
|
len stack[] -1
|
|
return r
|
|
.
|
|
func empty .
|
|
return if len stack[] = 0
|
|
.
|
|
push 2
|
|
push 11
|
|
push 34
|
|
while empty = 0
|
|
print pop
|
|
.
|