Here’s a list comprehension:
> [ x * y | x <- [1,2,3], y <- [10,100]][10,100,20,200,30,300]
This works in do notation too, with a bit of rearranging:
do
Prelude> doPrelude| x…