`vtype'
-------

vtype(VAR)
     :: VAR ($@ITDj85(J) $@$N(J $@7?(J ($@@0?t(J) $@$rJV$9(J.

RETURN
     $@<+A3?t(J
VAR
     $@ITDj85(J

   * VAR ($@ITDj85(J) $@$N7?$NCM$O<!$NDL$j(J. $@>\:Y$O(J *Note $@ITDj85$N7?(J::.
     0
          $@0lHLITDj85(J (`a',`b',`x',`afo',`bfo',...,etc.)
     1
          `uc()' $@$G@8@.$5$l$?ITDj85(J (`_0', `_1', `_2', ... etc.)
     2
          $@H!?t7A<0(J (`sin(x)', `log(a+1)', `acosh(1)', `@pi', `@e', ... 
          etc.)
     3
          $@H!?t;R(J ($@AH$_9~$_H!?t;R(J, $@%f!<%6Dj5AH!?t;R(J, $@=iEyH!?t;R(J :
          `sin', `log', ... etc)
   * `a();' $@$r<B9T(J($@DL>o$G$O%(%i!<(J)$@$7$?$@$1$G$b(J `ntype(a)' $@$O(J 3 $@$H$J$k(J. 
     $@$9$J$o$A(J `a' $@$O%f!<%6Dj5AH!?t;R$H$_$J$5$l$k(J.
   * `@pi', `@e' $@$OITDj85$H$7$F07$o$l$k$,(J, `eval()', `pari()'$@$K$*$$$F(J
     $@$O?t$H$7$F07$o$l$k(J.

$@;2>H(J
     `type', `ntype', `uc'

