subrのボイラープレートを生成するツール

S式でsubrを定義するとボイラープレートを生成する、みたいなのがほしい。

``` scheme
(define-subr "-" ((a <int>) . (args <int>))
  "
if (ST_NULLP(args))
{
    return St_Integer(-ST_INT_VALUE(a));
}
else
{
    int v = ST_INT_VALUE(a);
    ST_FOREACH(p, args) {
        v -= ST_INT_VALUE(ST_CAR(p));
    }
    return St_Integer(v);
}
")
```

``` scheme
(define-subr "cons" (a b)
  "return St_Cons(a, b);")
```
