word_list: word(s /,/) word : m{ [^,]+ }xms