Bitarray: module
{
	PATH:	con "/dis/lib/bitarray.dis";

	Bits: adt {
		d:	array of byte;
		have:	int;
		total:	int;

		new:		fn(n: int): ref Bits;
		mk:		fn(n: int, d: array of byte): (ref Bits, string);
		clone:		fn(b: self ref Bits): ref Bits;
		get:		fn(b: self ref Bits, i: int): int;
		set:		fn(b: self ref Bits, i: int);
		setall:		fn(b: self ref Bits);
		clear:		fn(b: self ref Bits, i: int);
		clearall:	fn(b: self ref Bits);
		invert:		fn(b: self ref Bits);
		clearbits:	fn(b: self ref Bits, o: ref Bits);
		nand:		fn(a, na: ref Bits): ref Bits;
		isempty:	fn(b: self ref Bits): int;
		isfull:		fn(b: self ref Bits): int;
		bytes:		fn(b: self ref Bits): array of byte;
		rand:		fn(b: self ref Bits): int;
		all:		fn(b: self ref Bits): list of int;
		iter:		fn(b: self ref Bits): ref Bititer;
		inviter:	fn(b: self ref Bits): ref Bititer;
		text:		fn(b: self ref Bits): string;
	};

	Bititer: adt {
		b:	ref Bits;
		last:	int;
		inv:	int;
		seen:	int;

		next:	fn(b: self ref Bititer): int;
	};
};