    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)