day 1 haskell exercises