gnu m4で、可変引数を順番に処理をする方法を知りたい

gnu m4で、可変引数を順番に処理をする方法を知りたい。

下記のソースでは、逆に出力される。
changequote({,})
define({token},{ifelse($#,0,,$#,1,{{<td>$1</td>
}},{token(shift($@)){<td>$1</td>
}})})
token(
1,
2,
3)

実行結果
<td>3</td>
<td>2</td>
<td>1</td>

上記を、下記の様に順番に出力をしたい。
<td>1</td>
<td>2</td>
<td>3</td>

上記のm4のスクリプトの何処をどの様に修正をしたら
正しく、順番通りに出力されるのだろうか。

宜しく、スクリプトの提示を御願いします。

No.1 ベストアンサー 回答者： siffon9 回答日時： 2018/09/26 14:50

changequote({,})

define({token},{ifelse($#,0,,$#,1,{{<td>$1</td>
}},{{<td>$1</td>
}token(shift($@))})})
token(1,2,3)