`vtype'
-------

vtype(VAR)
     :: VAR ($BITDj85(B) $B$N(B $B7?(B ($B@0?t(B) $B$rJV$9(B.

RETURN
     $B@0?t(B

VAR
     $BITDj85(B

   * VAR ($BITDj85(B) $B$N7?$NCM$O<!$NDL$j(B. $B>\:Y$O(B *Note $BITDj85$N7?(B::.
    0
          $B0lHLITDj85(B  (a,b,x,afo,bfo,...,etc)

    1
          `uc()' $B$G@8@.$5$l$?ITDj85(B (`_0', `_1', `_2', ... etc)

    2
          $BH!?t7A<0(B (`sin(x)', `log(a+1)', `acosh(1)', `@pi', `@e', ...
          etc)

    3
          $BH!?t;R(B ($BAH$_9~$_H!?t;R(B, $B%f!<%6Dj5AH!?t;R(B, $B=iEyH!?t;R(B : `sin',
          `log', ... etc)

   * `a();' $B$r<B9T(B($BDL>o$G$O%(%i!<(B)$B$7$?$@$1$G$b(B `ntype(a)' $B$O(B 3 $B$H$J$k(B.
     $B$9$J$o$A(B `a' $B$O%f!<%6Dj5AH!?t;R$H$_$J$5$l$k(B.

   * `@pi', `@e' $B$OITDj85$H$7$F07$o$l$k$,(B, `eval()', `pari()'
     $B$K$*$$$F$O?t$H$7$F07$o$l$k(B.

$B;2>H(B
     *Note `type': type, *Note `ntype': ntype, *Note `uc': uc.

