Day 1 haskell