Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/List/ZipWith7.hs
module List where zipWith7 :: (a->b->c->d->e->f->g->h) -> [a]->[b]->[c]->[d]->[e]->[f]->[g]->[h] zipWith7 z (b:bs) (c:cs) (d:ds) (e:es) (f:fs) (g:gs) (h:hs) = z b c d e f g h : zipWith7 z bs cs ds es fs gs hs zipWith7 _ _ _ _ _ _ _ _ = []
