// a pointer left below the live stack is not a root. scrub then clears that word.
unchecked fn main() {
	let p, slot, before, after;
	p = new(2);
	p[0] = 7;
	p[1] = 8;
	slot = DSLO + 8;
	*slot = p;
	before = live_objects();
	p = 0;
	gc();
	after = live_objects();
	put_n(after < before); put_c(32);
	scrub();
	put_n(*slot); put_c(10);
	return 0;
}