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

functor(FUNC)
     :: FUNC ̔qo.
args(FUNC)
     :: FUNC ̈Xgo.
funargs(FUNC)
     :: `cons(functor(FUNC),args(FUNC))' Ԃ.

RETURN
     `functor()' : s茳, `args()', `funargs()' : Xg
FUNC
     `\s茳

   * `ɊւĂ, `vtype()' Q.
   * ` FUNC ̔q, Xgo.
   * t, oqlɎvOϐ `F' Ƃ 
     (`*F')(x) x Ƃ锟Ăяo܂͔`͂ł.

     [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

Q
     `vtype'

