; 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]