n, k = gets.split.map(&:to_i)

# 初期化 全ての頂点を繋いだ状態（片方の頂点からのみ）とする
graph = Array.new(n) { Array.new }
(1...n).each do |i|
  graph[i] += (1..i).to_a
end

# 辺を 1 つずつ外していく、外した頂点同士の距離が 2 となる
# ただし、全ての頂点が 1 と繋がった状態を保つ
graph.each do |r|
  while r.size > 1 && k > 0
    r.pop
    k -= 1
  end
  break if k == 0
end

# 距離が 2 の組み合わせを全て作れた場合
if k == 0
  puts graph.flatten.size
  graph.each_with_index do |r, from|
    r.each do |to|
      puts "#{from + 1} #{to}"
    end
  end
  # 作れなかった場合
else
  puts -1
end
