Class Stack List stack
Methods Stack
new
	stack<-List new.
	^self

]
Methods Stack
asList
	^stack

]
Methods Stack
print
	self asList print

]
Methods Stack
push: anElement
	(stack addFirst: anElement). ^self

]
Methods Stack
top
	^stack first

]
Methods Stack
pop	| head|
	head<-stack first.
	stack<-stack removeFirst.
	^head


]