Data.Stack
type
Stack
s a
push
pop
runStack