arraymonad.roy

let arrayMonad = {
  return: \x -> [x]
  bind: \x f -> Array.prototype.concat.apply [] (x.map f)
}

let array = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

console.log (do arrayMonad
  x <- array
  y <- array
  return (x, y)
)