haskell day 2