1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE ParallelListComp #-} -- !!! Parallel list comprehensions module Main where f xs = [ (x,y) | x <- xs, x>3 | y <- xs ] main = print (f [0..10])