`type'
------

type(OBJ)
     :: OBJ $@$N(J $@7?(J ($@@0?t(J) $@$rJV$9(J.

RETURN
     $@<+A3?t(J
OBJ
     $@G$0U(J

   * OBJ $@$N(J $@7?$NCM$O<!$NDL$j(J.
     0
          0
     1
          $@?t(J
     2
          $@B?9`<0(J ($@?t$G$J$$(J)
     3
          $@M-M}<0(J ($@B?9`<0$G$J$$(J)
     4
          $@%j%9%H(J
     5
          $@%Y%/%H%k(J
     6
          $@9TNs(J
     7
          $@J8;zNs(J
     8
          $@9=B$BN(J
     9
          $@J,;6I=8=B?9`<0(J
   * $@?t$N7?$r5a$a$k$K$O(J, `ntype' $@$rMQ$$$k(J. $@ITDj85$N7?$r5a$a$k$K$O(J,
     `vtype' $@$rMQ$$$k(J.

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

