Enumerator comprehension monad

enumComp.moe

-- Enumerator comprehension monad
var ecSchemata = [yield: fYield, return: fReturn, bind: fBind]
where 
    fReturn = Enumerable function(x):
        if(x != undefined)
            enumeration.yield! x
    fYield(x) = x
    fBind = Enumerable function(list, callback):
        for(var x in list) 
            for(var y in callback x)
                enumeration.yield! y

var table(G) =
    var f = G.build ecSchemata
    f.apply(this, arguments)()

var t = table =>
    var x <- (1...9)
    var y <- (1...9)
    if(x <= y)
        x + ' * ' + y + ' = ' + x * y
for(var item in t) trace item