x, y = read_line.split.map(&.to_i)
puts "#{x * y} #{x * y}"
es = [] of Tuple(Int32, Int32)
x.times do |i|
  es << {i, (i + 1) % x}
  (y - 1).times do |j|
    es << {i + j * x, i + (j + 1) * x}
  end
end
es.each do |u, v|
  puts "#{u + 1} #{v + 1}"
end