Sshfmt: module{	PATH:	con "/dis/lib/sshfmt.dis"; 	init:	fn(); 	Tbyte, Tbool, Tint, Tbig, Tnames, Tstr, Tmpint: con -iota-1; 	parseall:	fn(buf: array of byte, l: list of int): (array of ref Val, string);	parse:		fn(buf: array of byte, l: list of int): (array of ref Val, int, string);	pack:		fn(v: array of ref Val, withlength: int): array of byte; 	Val: adt {		pick {		Byte =>	v:	byte;		Bool =>	v:	int;		Int =>	v:	big;		Big =>	v:	big;		Names =>			l:	list of string;		Str =>	buf:	array of byte;		Mpint =>			v:	ref Keyring->IPint;		Buf =>	buf:	array of byte;		} 		packbuf:	fn(v: self ref Val, d: array of byte): int;		pack:		fn(v: self ref Val): array of byte;		size:		fn(v: self ref Val): int;		text:		fn(v: self ref Val): string;		getbyte:	fn(v: self ref Val): byte;		getbool:	fn(v: self ref Val): int;		getint:		fn(v: self ref Val): int;		getintb:	fn(v: self ref Val): big;		getbig:		fn(v: self ref Val): big;		getnames:	fn(v: self ref Val): list of string;		getstr:		fn(v: self ref Val): string;		getbytes:	fn(v: self ref Val): array of byte;		getipint:	fn(v: self ref Val): ref Keyring->IPint;	}; 	valbyte:	fn(v: byte): ref Val;	valbool:	fn(v: int): ref Val;	valint:		fn(v: int): ref Val;	valintb:	fn(v: big): ref Val;	valbig:		fn(v: big): ref Val;	valmpint:	fn(v: ref Keyring->IPint): ref Val;	valnames:	fn(v: list of string): ref Val;	valstr:		fn(v: string): ref Val;	valbytes:	fn(v: array of byte): ref Val;	valbuf:		fn(v: array of byte): ref Val;};