Byte DecodeNormal(NRangeCoder::CDecoder *rangeDecoder)
  {
    UInt32 symbol =  1 ;
    RC_INIT_VAR
    do
    {
      // symbol = (symbol << 1) | _decoders[0][symbol].Decode(rangeDecoder);
      RC_GETBIT(kNumMoveBits, _decoders[symbol].Prob, symbol)
    }
    while (symbol < 0x100);
    RC_FLUSH_VAR
    return (Byte)symbol;

#define RC_GETBIT2(numMoveBits, prob, mi, A0, A1) \
  { UInt32 bound = (range >> NCompress::NRangeCoder::kNumBitModelTotalBits) * prob; \
  if (code < bound) \
  { A0; range = bound; \
    prob += (NCompress::NRangeCoder::kBitModelTotal - prob) >> numMoveBits; \
    mi <<=  1 ; } \
  else \
  { A1; range -= bound; code -= bound; prob -= (prob) >> numMoveBits; \
    mi = (mi + mi) +  1 ; }} \
  RC_NORMALIZE

#define RC_GETBIT(numMoveBits, prob, mi) RC_GETBIT2(numMoveBits, prob, mi, ; , ;)

#define RC_FLUSH_VAR \
  rangeDecoder->Range = range; \
  rangeDecoder->Code = code;
  }

 function  TLZMADecoder2.DecodeNormal( const  rangeDecoder:TRangeDecoder):byte;
 var  symbol:integer;
 begin 
symbol :=  1 ;
 repeat 
  symbol := (symbol  shl   1 )  or  rangeDecoder.DecodeBit(m_Decoders, symbol);
   until   not  (symbol < $ 100 );
result:=symbol;
 end ;

 function  TRangeDecoder.DecodeBit( var  probs:  array   of  smallint; const  index:integer):integer;
 var  prob,newbound:integer;
 begin 
prob:=probs[index];
newbound:=(Range  shr  kNumBitModelTotalBits) * prob;
 if  (integer((integer(Code)  xor  integer($ 80000000 ))) < integer((integer(newBound)  xor  integer($ 80000000 ))))  then   begin 
   Range := newBound;
   probs[index] := (prob + ((kBitModelTotal - prob)  shr  kNumMoveBits));
    if  ((Range  and  kTopMask) =  0 )  then   begin 
      Code := (Code  shl   8 )  or  ReadByte(stream);
      Range := Range  shl   8 ;
       end ;
   result:= 0 ;
    end   else   begin 
       Range := Range - newBound;
       Code := Code - newBound;
       probs[index] := (prob - ((prob)  shr  kNumMoveBits));
        if  ((Range  and  kTopMask) =  0 )  then   begin 
          Code := (Code  shl   8 )  or  ReadByte(stream);
          Range := Range  shl    8 ;
           end ;
       result:= 1 ;
        end ;
 end ;

 function  ReadByte( const  stream:TStream):byte;
 begin 
stream.Read(result, 1 );
 end ;

 function  TBufferedFS.Read( var  Buffer; Count: Longint): Longint;
 var  p:PByteArray;
    bytestoread:integer;
    b:integer;
 begin 
 if  Mode=BFMWrite  then  flush;
mode:=BFMRead;
result:= 0 ;
 if  count<=bytesinbuffer  then   begin 
    //all data already in buffer 
   move(membuffer[bufferpos],buffer,count);
   bytesinbuffer:=bytesinbuffer-count;
   bufferpos:=bufferpos+count;
   result:=count;
    end   else   begin 
       bytestoread:=count;
        if  (bytestoread<> 0 ) and (bytesinbuffer<> 0 )  then   begin 
           //read data remaining in buffer and increment data pointer 
          b:=Read(buffer,bytesinbuffer);
          p:=PByteArray(@(TByteArray(buffer)));
          bytestoread:=bytestoread-b;
          result:=b;
           [b]end   else  p:=@buffer;
        if  bytestoread>=BufferSize  then   begin 
           //data to read is larger than the buffer, read it directly 
          result:=result+ inherited  Read(p^,bytestoread);
           end   else   begin 
               //refill buffer 
              ReadBuffer;
               //recurse 
              result:=result+Read(p^,math.Min(bytestoread,bytesinbuffer));
               end ;
        end ;
 end ;

  bool ReadByte(Byte &b)
  {
    if(_buffer >= _bufferLimit)
      if(!ReadBlock())
        return false;
    b = *_buffer++;
    return true;
  }

 function  TMyInputStream.Read( var  Buffer; Count: Longint): Longint;
 var  b:int64;
 begin 
 try 
b:=_size-_pos;
 if  b>count  then  b:=count;
result:=b;
move(_buffer^[_pos],buffer,b);
_pos:=_pos+b;
 except  writeln('inread error');
 end ;
 end ;

 static   class  MyInputStream  extends  java.io.InputStream
	{
		 byte [] _buffer;
		 int  _size;
		 int  _pos;
		
		 public  MyInputStream( byte [] buffer,  int  size)
		{
			_buffer = buffer;
			_size = size;
		}
		
		 public   void  reset()
		{ 
			_pos =  0 ; 
		}
		
		 public   int  read()
		{
			 if  (_pos >= _size)
				 return  - 1 ;
			 return  _buffer[_pos++] & 0xFF;
		}
	};

a[j] = a[i];
a[j] = k;