read *,N print '(i0)',32-LEADZ(N) end program