PROGRAM ATCODER

implicit none
integer :: i,n,k,s,t
real(8) :: ans=0.d0

read*, n,k

do i = 1, n, 1
  s = i
  t = 0
  do
    if ( s >= k ) exit
    s = s*2
    t = t + 1
  end do
  ans = ans + 0.5d0**t/real(n,8)
end do

write(*,'(i0,f0.10)') 0,ans

END PROGRAM ATCODER