Haskell day 1