UC TestFlip(UC c) 
{
   UC r,i=7;DO{r*=2;r|=c&1;c/=2;}WH(--i);RT r;
}