zipWith4 package:infinite-list

Zip four infinite lists with a given function.