&REFER(VARANLFR,Sortie).
&INIT(Initiale).
&CLEX(PLACEMOT).
(0 ) -> ( Initiale ).
&REGLES.
Initiale: / FRM(FREG1) = %ENTCH(PLACEMOT(EC)) / NONSEP; TCHAINE(CC,0,*,'(( LEMME: ');  TCHAINE( CC,-0,'',LEMME(EC));
		  TCHAINE(CC,-0,'',')  (FRM: '); TCHAINE(CC,-0,'',FRM(EC));TCHAINE(CC,-0,'',') ');
		 TCHAINE(CC,-0,'',')  (PLACEMOT: '); TCHAINE(CC,-0,'',FRM(FREG1));TCHAINE(CC,-0,'',') ')/ RIS1.
RIS1: /  FRM(EC) =%CHAINE(CAT(EC)) / 
		  TCHAINE(CC,-0,'',' (CAT: '); TCHAINE(CC,-0,'',FRM(EC)); TCHAINE(CC,-0,'',') ')/  RNM,RVB,RFIN.
RNM: (CAT(EC) = N) /  FRM(EC) = %CHAINE(GNR(EC)) /
		  TCHAINE(CC,-0,'',' (GNR: '); TCHAINE(CC,-0,'',FRM(EC)); TCHAINE(CC,-0,'',') ');
		 TCHAINE(CC,-0,'',')\n'); HALT.
RVB: (CAT(EC) = V) /  / TCHAINE(CC,-0,'',')\n');HALT.

RFIN: / / TCHAINE(CC,-0,'',')\n');HALT.

&FIN.
