// 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
	putn(largest_free()); putc(' ');
	i = 0; while (i < 20000) { free(keep[i]); i++; }
	putn(largest_free()); putc(' ');
	p = new(200000);	// only possible if the small blocks merged back
	putn(osize(p) >= 200000); putc(' ');
	free(d*p);
	putn(live_objects()); putc(10);
	return 0;
}