Person =			"[" "person" <personname> Ident ["spouse" <spouse> Person] ["siblings" <siblings> Person_NList] "]".

Main =			.

*notparsed* *visitor*PrintVisitor =			<indent> int <needSpace> boolean *extends* UniversalVisitor.

*notparsed* *visitor*CopyVisitor =			<copy> *derived*Object *extends* UniversalVisitor.

*notparsed* *visitor*EqualVisitor =			<is_equal> boolean*init* (@ true @) *extends* UniversalVisitor.

*notparsed* *visitor*DisplayVisitor =			<indent> int *extends* UniversalVisitor.

*notparsed* *visitor*TraceVisitor =			<indent> int *extends* UniversalVisitor.

*notparsed* *visitor*UniversalVisitor :			PrintVisitor
			| CopyVisitor
			| EqualVisitor
			| DisplayVisitor
			| TraceVisitor			.

Person_NList =			<first> Nonempty_Person_NList.

Nonempty_Person_NList =			<it> Person [ <next> Nonempty_Person_NList].