UC TestFlip(UC c) 
{
UC r,i=8;WH(i--){r>>=1;r|=c&128;c*=2;}RT r;
}