/* Example rtn */

/* sentence rtn */
arc(sentence,start,[[a,nounphrase,rtn]]).
arc(sentence,a,[[b,verb,rtn]]).
arc(sentence,b,[[c,nounphrase,rtn]]).
arc(sentence,c,[[finish,stop_mark,rtn]]).

/* nounphrase rtn */
arc(nounphrase,start,[[finish,proper_noun,rtn],[a,determiner,rtn]]).
arc(nounphrase,a,[[finish,noun,rtn],[a,adjective,rtn]]).

/* verb rtn */
arc(verb,start,[[finish,is,word],[finish,drinks,word],[finish,buys,word],
[finish,refuses,word],[finish,has,word],[finish,consumes,word]]).

/* determiner rtn */
arc(determiner,start,[[finish,a,word],[finish,an,word],[finish,the,word]]).

/* noun rtn */
arc(noun,start,[[finish,vicar,word],[finish,policeman,word],[finish,drinks,word]
,[finish,tea,word],[finish,beer,word],[finish,drunk,word],[finish,orange,word],
[finish,sherry,word]]).

/* adjective rtn */
arc(adjective,start,[[finish,happy,word],[finish,iced,word],[finish,pink,word],
[finish,fizzy,word],[finish,orange,word],[finish,drunk,word]]).

/* proper noun rtn */
arc(proper_noun,start,[[finish,jane,word],[finish,fred,word],[finish,mr_plod,
word],[finish,heineken,word]]).

/* stop mark rtn */
arc(stop_mark,start,[[finish,(.),word],[finish,(?),word],[finish,(!),word]]).