implement Randpass; include "sys.m";	sys: Sys;	stderr: ref Sys->FD; include "draw.m"; include "ipints.m";	ipints: IPints;	IPint: import ipints; Randpass: 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;	ipints = load IPints IPints->PATH; 	if(args != nil)		args = tl args;	pwlen := 16;	if(args != nil){		if(!isnumeric(hd args) || (pwlen = int hd args) <= 8 || pwlen > 256){			sys->fprint(sys->fildes(2), "Usage: randpass [password-length(<256, default=16)]\n");			raise "fail:usage";		}	}	sys->print("%s\n", IPint.random(pwlen*8).iptob64()[0: pwlen]);} isnumeric(s: string): int{	for(i := 0; i < len s; i++)		if(!(s[i]>='0' && s[i]<='9'))			return 0;	return i > 0;}