class
	LINKED_AUTOMATON [S -> STATE]

General
	cluster: lex
	description: "General finite state automata, implemented as lists"
	create: make

Ancestors
	LINKED_LIST [G]

Queries
	after: BOOLEAN
	before: BOOLEAN
	changeable_comparison_criterion: BOOLEAN
	count: INTEGER_32
	cursor: LINKED_LIST_CURSOR [S]
	duplicate (n: INTEGER_32): [like Current] LINKED_AUTOMATON [S]
	exhausted: BOOLEAN
	Extendible: BOOLEAN
	first: [like item] S
	for_all (test: FUNCTION [ANY, TUPLE [S], BOOLEAN]): BOOLEAN
	Full: BOOLEAN
	has (v: [like item] S): BOOLEAN
	i_th alias "[]" (i: INTEGER_32): [like item] S
	index: INTEGER_32
	index_of (v: [like item] S; i: INTEGER_32): INTEGER_32
	index_set: INTEGER_INTERVAL
	infix "@" (i: INTEGER_32): [like item] S
	is_empty: BOOLEAN
	is_equal (other: [like Current] LINKED_AUTOMATON [S]): BOOLEAN
	is_inserted (v: S): BOOLEAN
	isfirst: BOOLEAN
	islast: BOOLEAN
	item: S
	last: [like item] S
	linear_representation: LINEAR [S]
	object_comparison: BOOLEAN
	occurrences (v: [like item] S): INTEGER_32
	off: BOOLEAN
	prunable: BOOLEAN
	readable: BOOLEAN
	sequential_occurrences (v: [like item] S): INTEGER_32
	there_exists (test: FUNCTION [ANY, TUPLE [S], BOOLEAN]): BOOLEAN
	valid_cursor (p: CURSOR): BOOLEAN
	valid_cursor_index (i: INTEGER_32): BOOLEAN
	valid_index (i: INTEGER_32): BOOLEAN
	writable: BOOLEAN

Commands
	append (s: SEQUENCE [S])
	back
	compare_objects
	compare_references
	copy (other: [like Current] LINKED_AUTOMATON [S])
	do_all (action: PROCEDURE [ANY, TUPLE [S]])
	do_if (action: PROCEDURE [ANY, TUPLE [S]]; test: FUNCTION [ANY, TUPLE [S], BOOLEAN])
	extend (v: [like item] S)
	fill (other: CONTAINER [S])
	finish
	force (v: [like item] S)
	forth
	go_i_th (i: INTEGER_32)
	go_to (p: CURSOR)
	merge_left (other: [like Current] LINKED_AUTOMATON [S])
	merge_right (other: [like Current] LINKED_AUTOMATON [S])
	move (i: INTEGER_32)
	prune (v: [like item] S)
	prune_all (v: [like item] S)
	put (v: [like item] S)
	put_front (v: [like item] S)
	put_i_th (v: [like item] S; i: INTEGER_32)
	put_left (v: [like item] S)
	put_right (v: [like item] S)
	remove
	remove_left
	remove_right
	replace (v: [like item] S)
	search (v: [like item] S)
	set_final (state, f: INTEGER_32)
	start
	swap (i: INTEGER_32)
	wipe_out