Haskell laboration