day3 haskell