Test nested do blocks in Haskell

nestedDoBlocks.hs

xRange = [2, 3]
yRange = [4..6]

lComprehension = [[(x, y) | y <- yRange] | x <- xRange]
lOperator = xRange >>= (\x -> [yRange >>= \y -> [(x, y)]])

lNestedDo = do
  x <- xRange
  return $ do
    y <- yRange
    return (x, y)

main = do
  putStrLn $ show lComprehension
  putStrLn $ show lOperator
  putStrLn $ show lNestedDo


{--

Results:
  Three lines of [[(2,4),(2,5),(2,6)],[(3,4),(3,5),(3,6)]]

--}