1  f (to)
       2       char *to;
       3  {
       4    unsigned int wch;
       5    register length;
       6    unsigned char tmp;
       7    unsigned int mult = 10;
       8  
       9    tmp = (wch>>(unsigned int)(length * mult));
      10    *to++ = (unsigned char)tmp;
      11  }