N,K=$<.read.split.map(&:to_i)

if K > (N-1)*(N-2)/2
    puts -1
    exit 0
end

es = (2..N).map {|i| [1,i]}
es += (2..N).to_a.combination(2).to_a[0..(N-K-1)]

puts es.length
es.each do |e|
    puts e.join(' ')
end