function compileAndRun(src)
{
	var ast = parser.parse(src);
	asyncProcessTopLevelJS(toplevel, function() {
		var js = makeJSProg(ast);
		eval(js);
	});
	/*.toJSModule();
	mainModule = eval(js);
	if (mainModule.strue) {
		each(mainModule.strue, function(key, val) {
			if(val instanceof Function) {
				Boolean.prototype[key] = function() {
					return this.valueOf() ? mainModule.strue[key].apply(mainModule.strue, arguments) : mainModule.sfalse[key].apply(mainModule.sfalse, arguments);
				};
			}
		});
	}
	mainModule.main();*/
}

onReady(function() {
	toplevel.onReady( function() {
		var tags = qall('script[type="text/tabletprog"]');

		for (var i = 0; i < tags.length; ++i) {
			if (tags[i].src) {
				(function() {
					var src = tags[i].src;
					get(src, function(req) {
						console.log('Compiling ' + src);
						compileAndRun(req.responseText);
					});
				})();
			} else {
				compileAndRun(tags[i].innerHTML);
			}
		}
	});
});