library xePower initializer Init
    globals
        /* --------------------------------------- */
        private integer       xe_count    = 1
        private integer       xe_powerMax = 0
        private integer array xe_powersOf2
        private integer array xe_helpers
        /* --------------------------------------- */
    endglobals
    
    function GetPower takes integer index returns integer
        local integer offset = 1
        
        if index < 0 then
            return 0
        endif
        
        if xe_powersOf2[index] == 0 then
            set xe_powersOf2[index] = xe_powersOf2[index - 1] * 2
            set xe_count = xe_count + 1
            
            loop
                exitwhen offset == xe_powersOf2[index]
                set xe_helpers[xe_powersOf2[index] + offset] = index
                set offset = offset + 1
            endloop
            
            set xe_powerMax = xe_powersOf2[index] + offset
        endif

        return xe_powersOf2[index] 
    endfunction
    
    function GetPowerHelper takes integer power returns integer
        if power <= 0 then
            return 0
        endif
        
        if power > xe_powerMax then
            set power = xe_powerMax
        endif
        
        return xe_helpers[power]
    endfunction
    
    private function Init takes nothing returns nothing
        set xe_powersOf2[0] = 1
        set xe_helpers[1] = 1
    endfunction
endlibrary

library xePower initializer Init
    globals
        /* --------------------------------------- */
        private integer       xe_powerMax = 0
        private integer array xe_powersOf2
        private integer array xe_helpers
        /* --------------------------------------- */
    endglobals
    
    function GetPower takes integer index returns integer
        local integer offset = 0
        
        if index <= 0 then
            return 0
        endif

        if xe_powersOf2[index] == 0 then
            set xe_powersOf2[index] = xe_powersOf2[index - 1] * 2

            loop
                exitwhen offset == xe_powersOf2[index]
                set xe_helpers[xe_powersOf2[index] + offset] = index
                set offset = offset + 1
            endloop
            
            set xe_powerMax = xe_powersOf2[index] + offset
        endif

        return xe_powersOf2[index] 
    endfunction
    
    function GetPowerHelper takes integer power returns integer
        if power <= 0 then
            return 0
        endif
        
        if power > xe_powerMax then
            set power = xe_powerMax
        endif
        
        return xe_helpers[power]
    endfunction
    
    private function Init takes nothing returns nothing
        set xe_powersOf2[1] = 1
        set xe_helpers[1] = 1
    endfunction
endlibrary

local integer index = GetPowerHelper(33)
            
            loop
                exitwhen IDs == 0 or index == 0
                if IDs >= GetPower(index) then
					// Выполняет правильно index (32,1) а раньше было (32,16,8 и так далее)
                    set IDs = IDs - GetPower(index)
                    set index = GetPowerHelper(IDs)
                else
                    set index = index - 1
                endif
            endloop