use bigint;
($m,$k)=split/ /,<>;
print $k<$m? $m / ++$k : -1