implement SimpleClient; include "sys.m";include "draw.m";include "bufio.m"; sys : Sys;bufio : Bufio; Iobuf : import bufio;Connection : import sys; SimpleClient : module{	init : fn (ctxt : ref Draw->Context, args : list of string);}; init (ctxt : ref Draw->Context, args : list of string){	buf := array [Sys->ATOMICIO] of byte; 	sys = load Sys Sys->PATH;	bufio = load Bufio Bufio->PATH; 	buffer := bufio->open("/appl/MR/config", Bufio->OREAD);	hostAddr := buffer.gets('\n');	hostAddr = hostAddr[: len hostAddr - 1]; 	(n, conn) := sys->dial("tcp!" + hostAddr + "!66666", nil);	sys->write(conn.dfd, array of byte "start@0", len "start@0");	length := sys->read(conn.dfd, buf, len buf);	sys->print("%s", string buf[:length]);}