code for Haskell