namespace;
include rt;

// memdebug finds the block of an interior pointer however deep it is: buf[255]
// of a 256-word block is 255 words past its header, beyond the old 64-word scan.
memdebug on;
fn main() {
	let buf = rt.new(256), small = rt.new(4);
	buf[255] = 7;
	buf[100] = 3;
	small[3] = 2;
	rt.put_n(buf[255]); rt.put_c(32);
	rt.put_n(buf[100]); rt.put_c(32);
	rt.put_n(small[3]); rt.put_c(10);
	rt.free(small);
	rt.free(buf);
	return 0;
}