[Haskell-beginners] Writing a custom pop function for a stack data type