awesomness that is zipWith. from 'learn you a haskell'