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