RosettaCodeData/Task/Stack/Oforth/stack-1.oforth

ListBuffer Class new: Stack
Stack method: push  self add ;
Stack method: pop   self removeLast ;
Stack method: top   self last ;