defn saminit(){	if !access("/sys/src/cmd/sam/cmd.acid") then		rc("cd /sys/src/cmd/sam && mk cmd.acid");	include("/sys/src/cmd/sam/cmd.acid");} defn printrunestring(addr, len){	loop 1,len do {		print(*(addr\r));		addr = addr+2;	}} defn runestring(addr, len){	local s;		s = "";	loop 1,len do {		s = s + *(addr\r);		addr = addr+2;	}	return s;} defn string(s){	complex String s;	return runestring(s.s, s.n);} defn filemenu(f){	complex File f;	local s;		s = "";	if f != *cmd then {		if f.mod then			s = s + "'";		else 			s = s + " ";		if f.rasp != 0 then			s = s + "+";		else			s = s + "-";		if f == *curfile then			s = s + ".";		else			s = s + " ";		s = s + " ";	}	s = s + string(f.name);	print("file(", f\X, ") // ", s, "\n");} defn files(){	local i, f, fx, fp;		fx = (List)file;	if fx.nused == 0 then		filemenu(*cmd);	i = 0;	loop 1,fx.nused do {		f = (File)fx.g.filep[i];		filemenu(f);		i = i+1;	}} defn range(r){	complex Range r;		if r.p1 == r.p2 then		return itoa(r.p1, "#%d");	return itoa(r.p1, "#%d")+"-"+itoa(r.p2, "#%d");} defn file(f){	complex File f;		filemenu(f);	print("\t$=#", f.nc\D, " .=", range(f.dot.r), " buffer(", f\X, ")\n");	if f == *cmd then {		print("\tcmdpt=#", *cmdpt\D, " cmdptadv=#", *cmdptadv\D, "\n");	}} defn buffer(b){	complex Buffer b;		print("buffer(", b\X, "): c=", b.c\X, " nc=", b.nc\D, "\n");	print("cache: ==(");	print(runestring(b.c, b.nc));	print(")==\n");} print("/sys/lib/acid/sam");