求ム! 以下の m4 プログラムを 3 倍高速化できる人材

anarchy golf - minimal PostScript interpreter の 3 個目のサンプルが

define(f,`ifelse($#,2,`dnl',$2,`=',$1
`f(decr($1',`f(incr($1')),shift(shift($@)))')f(-1,translit(include(/dev/fd/0),` ',`,'),)

だと 2.7 秒ほどかかるので。

define(f,`ifelse(regexp($2,=),0,$1
`f(decr($1),substr($2,2))',regexp($2,c),0,`f(incr($1),substr($2,5))')')f(-1,include(/dev/fd/0))

としても 2.3 秒ほどかかる。
追記:anarchy golf - the source codeなるほど。= と count の度に define しなおせばいいのか。