// print the length and first character of the file named by ZC_FILE
include "src/lib/std.zc";
fn main() {
	let name[80], s, n;
	n = Host.env("ZC_FILE", name, 80);
	if (n < 0) { put_s("no file\n"); return 1; }
	s = readfile(name);
	if (!s) { put_s("can't read\n"); return 1; }
	put_n(len_w(s)); put_c(' '); put_c(s[0]); put_c(10);
	free(d*s);
	return 0;
}