Add Haskell day 3