// ct { ... } runs a block while compiling and leaves its result as a constant
immediate fn ct() {
	let q, v;
	next();
	q = grab();
	v = eval(q);
	free(d*q);
	lit(v);
	return 0;
}
// teach the asm syntax that p means out, like the old repl demo
immediate fn teach() { next(); mnem[12] = 'p'; return 0; }
teach

fn countdown() {
	asm { 5 :top 0 $ '0' + p 1 - 0 $ done z top j :done _ 10 p }
	return 0;
}
fn main() {
	put_n(ct { let i = 0, s = 0; while (i < 10) { s += i; i++; } return s; }); put_c(10);
	countdown();
	put_s(lazy()); put_c(10);
	return 0;
}
// the analyzer is off from here on
unchecked;
fn lazy() { let p = new(3); p[0] = 'o'; p[1] = 'k'; return p; }