Haskell labb 2