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) {
				get(tags[i].src, function(req) {
					compileAndRun(req.responseText);
				});
			} else {
				compileAndRun(tags[i].innerHTML);
			}
		}
	});
});