Haskell day3 pre-hw