##	Unroll: unrolls a text file into characters, one per line#	(C) 2003 p. Stanley-Marbell##	TODO: read stdin by default#implement Unroll; include "sys.m";include "draw.m"; sys	: Sys;draw	: Draw; Unroll : module{	init : fn(nil : ref Draw->Context, nil : list of string);}; init(nil : ref Draw->Context, args : list of string){	sys = load Sys Sys->PATH; 	if (len args != 2)	{		usage();		exit;	} 	fd := sys->open(hd tl args, Sys->OREAD);	if (fd == nil)	{		sys->raise(sys->sprint("fatal: could not open [%s] : %r",			hd tl args));	} 	i := 0;	n := 0;	buf := array [1] of byte;	while (sys->read(fd, buf, len buf) > 0)	{		sys->print("%c\n", int buf[0]);	} 	return;} usage(){	sys->print("Usage: unroll <filename>\n");}