Ending day2 hw for Haskell