1{-# LANGUAGE ParallelListComp #-} 2 3f xs ys zs = [ (x,y,z) | x <- xs | y <- ys, y > 2 | z <- zs ] 4