zip and zipWith

and a li'l change to xprod