word ==> phon:[(pepa;marie)],cat:noun;
         phon:[(pase;pere)],cat:verb.

phrase ==> ( phon:append(Phon1,Phon2),
             cat:s,
             dtrs:[(phon:Phon1,cat:noun),(phon:Phon2,cat:verb)] ).
           
append(list,list) **> list.
append([],L) := L.
append([H|T],L) := [H|append(T,L)].