`uc'
----

uc()
     :: $@?7$?$JITDj85$r@8@.$9$k(J.

RETURN
     `vtype' $@$,(J 1 $@$NITDj85(J

   * `uc()' $@$r<B9T$9$k$?$S$K(J, `_0', `_1', `_2',... $@$H$$$&ITDj85$r@8@.(J
     $@$9$k(J.
   * `uc()' $@$G@8@.$5$l$?ITDj85$O(J, $@D>@\%-!<%\!<%I$+$iF~NO$9$k$3$H$,$G$-(J
     $@$J$$(J. $@$3$l$O(J, $@%W%m%0%i%`Cf$GL$Dj78?t$r<+F0@8@.$9$k>l9g(J, $@F~NO$J$I(J
     $@$K4^$^$l$kITDj85$HF10l$N$b$N$,@8@.$5$l$k$3$H$rKI$0$?$a$G$"$k(J.
   * $@DL>o$NITDj85(J (`vtype' $@$,(J 0) $@$N<+F0@8@.$K$O(J `rtostr()', `strtov()' 
     $@$rMQ$$$k(J.
   * `uc()' $@$G@8@.$5$l$?ITDj85$NITDj85$H$7$F$N7?(J (`vtype') $@$O(J 1 $@$G$"$k(J. 
     (*Note $@ITDj85$N7?(J::)

     [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

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

