[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / typecheck / should_run / tcrun013.hs
1 {-# OPTIONS -fglasgow-exts #-}
2
3 -- !!! Parallel list comprehensions
4
5 module Main where
6
7 f xs = [ (x,y) | x <- xs, x>3 | y <- xs ]
8
9 main = print (f [0..10])
10