1 define(_,`ifelse(index($1,^),0,`shift(shift($@))',$1,%,`translit($2,$3
2 ,(,))',$1,=,`eval($2)',$1,~,`($5+$3),($2-$4)',`$1$2',+,,$1,+,`_(,_(%,
3 $2,* )),_(+,_(^$@))',`$1$2',>,`) _(=,',$1,>,`+$2_(>,_(^,_(^$@)))+$3',
4 $1$4,,`$2,$3',$1,,`_($2,_(=,$3- $2),_(^$@))',$4,,`_(~,$1,_(,$2),$3)',
5 `_($1,`$2,_(=,$4- $3)',_(^,_(^$@)))')')_(=,_(>,_(+,_(%,include(I),*))))