antti@antti-HP-Compaq-dc7100-SFF-PE271ET ~/stack $ ./Shen

Shen, copyright (C) 2010-2015 Mark Tarver
www.shenlanguage.org, Shen 19.2
running under Common Lisp, implementation: CLisp
port 1.9 ported by Mark Tarver


(0-) (load "stackLambda.shen")
empty-stack
push
top
pop

run time: 0.04000000283122063 secs
loaded

(1-) (set s (empty-stack))
#<COMPILED-FUNCTION empty-stack-1>

(2-) (set s (push a (value s)))
#<COMPILED-FUNCTION push-1>

(3-) (set s (push z (value s)))
#<COMPILED-FUNCTION push-1>

(4-) (top (value s))
z

(5-) (top (pop (value s)))
a

(6-) (QUIT)
antti@antti-HP-Compaq-dc7100-SFF-PE271ET ~/stack $