fn main() {
	let path = b"/tmp/zc-bstr.txt";
	let msg = b"byte-io";
	let fd = bopen(path, 1);
	let n = bwrite(fd, msg, len_s(msg));
	syscall(SYS_CLOSE, fd, 0, 0);
	fd = bopen(path, 0);
	let buf = new_s(7);
	let g = bread(fd, buf, 7);
	syscall(SYS_CLOSE, fd, 0, 0);
	let name = b"ZC_BSTR";
	let envb = new_s(16);
	let k = bgetenv(name, envb, 16);
	put_s(buf); put_c(32);
	put_n(n); put_c(32);
	put_n(g); put_c(32);
	put_n(buf == msg); put_c(32);
	put_n(k); put_c(32);
	put_n(at_s(envb, 0)); put_c(32);
	put_n(at_s(envb, 5)); put_c(10);
	return 0;
}