Haskell day1 pre-hw
First part of haskell hw1