Haskell day1 hw complete