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