FunctorM1.scl

   1 import "Prelude"
   2
   3 main = sequence [[1,2], [3,4], [5,6]]
   4 /*
   5   x <- [1,2]
   6   y <- [3,4]
   7   z <- [5,6]
   8   return [x,y,z]
   9 */
  10 --
  11 [[1, 3, 5], [1, 3, 6], [1, 4, 5], [1, 4, 6], [2, 3, 5], [2, 3, 6], [2, 4, 5], [2, 4, 6]]