Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/ZipWith3.hs
module Prelude where zipWith3 :: (a->b->c->d) -> [a]->[b]->[c]->[d] zipWith3 z (b:bs) (c:cs) (d:ds) = z b c d : zipWith3 z bs cs ds zipWith3 _ _ _ _ = []
