{-# LANGUAGE ParallelListComp #-}

-- !!! Parallel list comprehensions

module Main where

f xs = [ (x,y) | x <- xs, x>3 | y <- xs ]

main = print (f [0..10])