1-39 haskell