`uc'
----

uc()
     :: $BL$Dj78?tK!$N$?$a$NITDj85$r@8@.$9$k(B.

RETURN
     `vtype' $B$,(B 1 $B$NITDj85(B

   * `uc()' $B$r<B9T$9$k$?$S$K(B, `_0', `_1', `_2',... $B$H$$$&(B
     $BITDj85$r@8@.$9$k(B.

   * `uc()' $B$G@8@.$5$l$?ITDj85$O(B,
     $BD>@\%-!<%\!<%I$+$iF~NO$9$k$3$H$,$G$-$J$$(B.  $B$3$l$O(B,
     $B%W%m%0%i%`Cf$GL$Dj78?t$r<+F0@8@.$9$k>l9g(B, $BF~NO$J$I$K4^$^$l$k(B
     $BITDj85$HF10l$N$b$N$,@8@.$5$l$k$3$H$rKI$0$?$a$G$"$k(B.

   * $BDL>o$NITDj85(B (`vtype' $B$,(B 0) $B$N<+F0@8@.$K$O(B `rtostr()', `strtov()'
     $B$rMQ$$$k(B.

   * `uc()' $B$G@8@.$5$l$?ITDj85$NITDj85$H$7$F$N7?(B (`vtype') $B$O(B 1 $B$G$"$k(B.
     (*Note $BITDj85$N7?(B::)

     [0] A=uc();
     _0
     [1] B=uc();
     _1
     [2] (uc()+uc())^2;
     _2^2+2*_3*_2+_3^2
     [3] (A+B)^2;
     _0^2+2*_1*_0+_1^2

$B;2>H(B
     *Note `vtype': vtype, *Note `rtostr': rtostr, *Note `strtov':
     strtov.

