; Loading 'stack.lsp'
[1] (define st (stack 'new))
ST
[2] (st 'push 1)
(1)
[3] (st 'push 2)
(2 1)
[4] (st 'emptyp)
()
[5] (st 'pop)
2
[6] (st 'pop)
1
[7] (st 'emptyp)
#T
[8]