adds through beginning haskell ch3