`rtostr'
--------

rtostr(OBJ)
     :: OBJ $@$rJ8;zNs$KJQ$($k(J.

RETURN
     $@J8;zNs(J
OBJ
     $@G$0U(J

   * $@G$0U$N%*%V%8%'%/%H(J OBJ $@$rJ8;zNs$KJQ$($k(J.
   * $@@0?t$J$I$rJ8;zNs$KJQ49$7$FJQ?tL>$H7k9g$9$k$3$H$K$h$j(J, $@E:;zIU$-$N(J
     $@ITDj85$r@8@.$9$k>l9g$KB?$/MQ$$$i$l$k(J.
   * $@5U$K(J, $@J8;zNs$rITDj85$KJQ49$9$k;~$K$O(J, `strtov' $@$rMQ$$$k(J.

     [0] A=afo;
     afo
     [1] type(A);
     2
     [2] B=rtostr(A); 
     afo
     [3] type(B);
     7
     [4] B+"1";
     afo1

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

