Anarchy golf の Bessel function を GForth で

GForth の C Interface を使ったら Bessel 関数を楽に書けるのでは無いかと思ってちょっと使い方を調べてみたところ、こんな感じで使えました。

\c #include<math.h>
c-function j0 j0 r -- r

1.0e0 j0  \ -> 7.65197686558E-1

しかし、どうも C コンパイラを exec しているらしく Anarchy Golf の Bessel function J_0 では使えない模様。