#!/usr/bin/env perl

use strict;
use warnings;

my ($n, $m) = split/ /,<>;
if ($n <= $m) {
  print 1;
} elsif ($n % 2 == 0 && $n / 2 <= $m) {
  print 2;
} else {
  print -1;
}