added Stack in Haskell