%%
exit      begin writeln('Fin du programme');halt end;

Qui[ ]est     begin return(IdQui) end;

[A-Z][a-z]+ begin return(IdNom) end;

est[ ]+marie[ ]+a |
est[ ]+mariee[ ]+a |
est[ ]+le[ ]+frere[ ]+de |
est[ ]+la[ ]+soeur[ ]+de |
est[ ]+le[ ]+pere[ ]+de |
est[ ]+la[ ]+mere[ ]+de  begin (*write('VERBE':yyleng);*)return(IdVerbe) end;

[ ]+   (*write(' ':yyleng)*);

.|\n      returnc(yytext[1]);