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