function log2 takes integer val returns integer
  if val>4194304 then
    return Pow2[val/1000000+2]    
  elseif val>1024 then
    return Pow2[val/1000+1]
  else
    return Pow2[val]
  endif  
    return 0
endfunction

function Initlog2 takes nothing returns nothing
    set Pow2[0]=0
    set Pow2[1]=0
    set Pow2[2]=1
    set Pow2[4]=2
    set Pow2[8]=3
    set Pow2[16]=4
    set Pow2[32]=5
    set Pow2[64]=6
    set Pow2[128]=7
    set Pow2[256]=8
    set Pow2[512]=9
    set Pow2[1024]=10
    set Pow2[3]=11
    set Pow2[5]=12
    set Pow2[9]=13
    set Pow2[17]=14
    set Pow2[33]=15
    set Pow2[66]=16
    set Pow2[132]=17
    set Pow2[263]=18
    set Pow2[525]=19
    set Pow2[1049]=20
    set Pow2[2098]=21
    set Pow2[4195]=22
    set Pow2[10]=23
    set Pow2[18]=24
    set Pow2[35]=25
    set Pow2[69]=26
    set Pow2[136]=27
    set Pow2[270]=28
    set Pow2[538]=29
    set Pow2[1075]=30
    set Pow2[2149]=31
    set Pow2[4296]=32
endfunction