First try at stacks in haskell