☆ RevengeOfTheFORTH?(w

: acg { n -- func }
　　:[ +-> n n . ]: ::generate
;

1 acg constant aa
10 acg constant ab

: test { x --  }
　　x aa ::call
　　x ab ::call cr
;

:class acg2 super{ object }
　　var  m
　　:m set:  put: m  ;m
　　:m init: { n -- func }
　　　　:[ +-> n  n get: m * . cr ]: ::generate ;m
;class

acg2 oo

2 set: oo
1 init: oo constant ac

: test2 ( x -- )  ac ::call  ;

※ 日本語表現でもやってみるなり。

単語「加算機生成」{ 和 -- 関数 }
　　【和に足す→和　和を数値表示】を生成。
と定義

単語「test3」{ | 関数 --  }
　　1で加算機生成→関数
　　2で関数を呼び出す。改行
　　1で関数を呼び出す。改行
　　3で関数を呼び出す。改行
と定義