`functor', `args', `funargs'
----------------------------

functor(FUNC)
     :: FUNC の函数子を取り出す.

args(FUNC)
     :: FUNC の引数リストを取り出す.

funargs(FUNC)
     :: `cons(functor(FUNC),args(FUNC))' を返す.

RETURN
     `functor()' : 不定元, `args()', `funargs()' : リスト

FUNC
     函数形式を表す不定元

   * 函数形式に関しては, `vtype()' を参照.

   * 函数形式 FUNC の函数子, 引数リストを取り出す.

   * 逆に, 取り出した函数子を値に持つプログラム変数を `F' とすれば
     (`*F')(x) で x を引数とする函数呼び出しまたは函数形式が入力できる.

     [0] functor(sin(x));
     sin
     [0] args(sin(x));
     [x]
     [0] funargs(sin(3*cos(y)));
     [sin,3*cos(y)]
     [1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) {A=car(L);
     print(eval((*A)(@pi/3)));}
     0.86602540349122136831
     0.5000000002
     1.7320508058

参照
     *Note `vtype': vtype.

