zipWith4 package:storablevector

Like zipWith but for four input vectors If you need even more input vectors, you might write a function yourselve using unfoldrN and viewL.