class
	BOOL_STRING

General
	cluster: base
	description: "Packed boolean strings"
	create: make

Ancestors
	ANY
	TO_SPECIAL [T]

Queries
	count: INTEGER_32
	infix "@" (i: INTEGER_32): BOOLEAN
	infix "and" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING
	infix "or" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING
	infix "xor" (other: [like Current] BOOL_STRING): [like Current] BOOL_STRING
	item alias "[]" (i: INTEGER_32): BOOLEAN
	left_shifted (n: INTEGER_32): [like Current] BOOL_STRING
	prefix "not": [like Current] BOOL_STRING
	right_shifted (n: INTEGER_32): [like Current] BOOL_STRING
	valid_index (i: INTEGER_32): BOOLEAN

Commands
	all_false
	all_true
	make (n: INTEGER_32)
	put (v: [like item] BOOLEAN; i: INTEGER_32)