%token <n> NUM
%token <str> VAR
%token <n> KW_DISCARD
-%token <n> KW_PIPE KW_MAIL KW_COPY
+%token <n> KW_PIPE KW_MAIL KW_COPY KW_FILTER
%token '(' ')' '{' '}' ';'
%nonassoc KW_IF
%nonassoc KW_ELSE
right: /* empty */ { $$ = K_EMPTY; }
| KW_PIPE { $$ = K_PIPE; }
| KW_MAIL { $$ = K_MAIL; }
+ | KW_FILTER { $$ = K_FILTER; }
;
ass_right_p: '(' ass_right ')' {$$ = $2; }