I may not be able to define the List Monad, but I know it when I see it...

All.js

    function mapConcat (choices) {
      return function (list) {
        return _.map(choices, function (choice) {
          return list.concat([choice])
        })
      }
    }

    function flatMapWith (fn, list) {
      return _.reduce(list, function (acc, element) {
        return acc.concat(fn(element));
      }, [])
    }
    
    function unit (choices) {
      return _.map(choices, function (choice) {
        return [choice];
      });
    }
  
    function forChoices (choices) {
      var chooser = _.partial(flatMapWith, mapConcat(choices));
      return _.compose(chooser, chooser, chooser)(unit(choices))
    }
    
    function all (generation) {
      if (generation === 0) {
        return [Cell(0), Cell(1)];
      }
      else return forChoices(all(generation - 1));
    }