[Haskell-cafe] Creating a list with do notation