program main implicit none integer::N,M read *,N,M if (M.ge.N) then print '(i0)',1 else if (M.ge.2*N) then print '(i0)',2 else print '(i0)',-1 end if end program main