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