// the buddy allocator: 20000 small blocks, freed, merge back into one big one
let keep[20000];
fn main() {
	let i = 0, p;
	while (i < 20000) { keep[i] = new(2); i++; }   // 20000 8-word blocks
	put_n(largest_free()); put_c(' ');
	i = 0; while (i < 20000) { free(keep[i]); keep[i] = 0; i++; }
	scrub();	// stale stack words would keep the quarantined blocks
	gc();
	put_n(largest_free()); put_c(' ');
	p = new(200000);	// only possible if the small blocks merged back
	put_n(osize(p) >= 200000); put_c(' ');
	free(d*p);
	put_n(live_objects()); put_c(10);
	return 0;
}