	 Check that list comprehensions can be written 
	 in do - notation . This actually broke 2.02 , with 
	 a pattern match failure in dsListComp ! 

	in do-notation. This actually broke 2.02, with
	a pattern match failure in dsListComp!
-}

module Main where

main = putStrLn (show theList)
theList = do x <- [1..3]
             y <- [1..3]
             return (x,y)


	 Check that list comprehensions can be written 
	 in do - notation . This actually broke 2.02 , with 
	 a pattern match failure in dsListComp ! 

	in do-notation. This actually broke 2.02, with
	a pattern match failure in dsListComp!
-}

module Main where

main = putStrLn (show theList)
theList = do x <- [1..3]
             y <- [1..3]
             return (x,y)

