# Token names.
lex
	token number /[0-9]+/
	token id /[a-z]+/
	token string /'"' [^"]* '"'/
	ignore ws / [ \t\n]+ /
end

def prefix [id]

def choice1
	[number number]
|	[number]

def choice2 
	[string id]
|	[number number]
|	[id number]
|	[number]

def start 
	[prefix choice1 choice2 string id id]

I: parser<start> = new parser<start>()

send I " id "
send I " 77 "
send I " 88 "
send I " \"hello\" "
send I " dude "
send I " dude\n"

S: start = I->finish()
S = match S 
	~id 77 88 "hello" dude dude
print( xml(S) )
print( '\n' )
##### EXP #####
<start><prefix><id>id</id></prefix><choice1><number>77</number></choice1><choice2><number>88</number></choice2><string>"hello"</string><id>dude</id><id>dude</id></start>