MODULE trailing_blanks_la;

! define token for all blanks when followed by end of line

    TOKEN trailing_blanks { ' ' ... : S'EOL' };

    MACRO find_tb TRIGGER { trailing_blanks };

! since the blanks are to be deleted
! and the end of line is not matched by the picture,
! there is nothing to answer

    END MACRO /* FIND_TB */;

    PROCEDURE tb MAIN;

    	START SCAN
	    INPUT FILE 'file.in'
	    OUTPUT FILE 'file.out';

    END PROCEDURE /* tb */;

END MODULE /* trailing_blanks_la */;