f(to)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 }
12