`vtype'
-------

vtype(VAR)
     :: VAR (긵)   () ֤.

RETURN
     
VAR
     긵

   * VAR (긵) ηͤϼ̤. ܺ٤ *Note 긵η::.
     0
          긵 (`a',`b',`x',`afo',`bfo',...,etc.)
     1
          `uc()' 줿긵 (`_0', `_1', `_2', ... etc.)
     2
          ȡ (`sin(x)', `log(a+1)', `acosh(1)', `@pi', `@e', ... 
          etc.)
     3
          ȡ (Ȥ߹ȡ, 桼ȡ, ȡ :
          `sin', `log', ... etc)
   * `a();' ¹(̾Ǥϥ顼)Ǥ `ntype(a)'  3 Ȥʤ. 
     ʤ `a' ϥ桼ȡҤȤߤʤ.
   * `@pi', `@e' 긵Ȥư뤬, `eval()', `pari()'ˤ
     ϿȤư.


     `type', `ntype', `uc'

