integer ::ans,cnt
      read*,n
      cnt=1
      ans=0
      do while(n>cnt)
            cnt=2*cnt
            ans=(ans+1)
      enddo
      print*,ans
end