monads.js

function sequence_(lst)
{
    function do_it(i) {
        if (i === lst.length)
            return;
        lst[i](function() { 
            do_it(i+1);
        });
    }
    do_it(0);
}

// abstract out continuation hell
sequence_([
    function(k) { s.set('a', 1, k); },
    function(k) { s.eval('cat(a)', k); },
    function(k) { s.eval('print(a)', k); }
]);