`vtype'
-------

vtype(VAR)
     :: VAR (s茳)  ^ () Ԃ.

RETURN
     R
VAR
     s茳

   * VAR (s茳) ̌^̒l͎̒ʂ. ڍׂ *Note s茳̌^::.
     0
          ʕs茳 (`a',`b',`x',`afo',`bfo',...,etc.)
     1
          `uc()' Őꂽs茳 (`_0', `_1', `_2', ... etc.)
     2
          ` (`sin(x)', `log(a+1)', `acosh(1)', `@pi', `@e', ... 
          etc.)
     3
          q (gݍݔq, [U`q, q :
          `sin', `log', ... etc)
   * `a();' s(ʏł̓G[)ł `ntype(a)'  3 ƂȂ. 
     Ȃ킿 `a' ̓[U`qƂ݂Ȃ.
   * `@pi', `@e' ͕s茳ƂĈ邪, `eval()', `pari()'ɂ
     ͐ƂĈ.

Q
     `type', `ntype', `uc'

