BOOL IsBeki( int a ){
 int b=a;
 a |= (a>>16);b += (b>>16);
 a |= (a>>8);b += (b>>8);
 a |= (a>>4);b += (b>>4);
 a |= (a>>2);b += (b>>2);
 a |= (a>>1);b += (b>>1);
 return( (a==b) || (a==0) );
}