//inlaw.cd

Person = "[" "person"
	<personname> Ident 
	["spouse"<spouse>Person]
	["siblings"<siblings>NList(Person)] 
	"]". 

NList(S) ~ S{S}.

Main=.