require 'set'

loop do
  n, m, k = gets.split.map(&:to_i)
  break if n == 0
  balls = [Set.new, Set.new]
  pegs = (0..n).map { (0..n).map { 0 } }

  winner = win_at = nil
  k.times do |i|
    x, y = gets.split.map(&:to_i)
    next if winner
    z = (pegs[x][y] += 1)
    balls[i % 2] << [x, y, z]
    [1, 0, -1].repeated_permutation(3) do |diff|
      next if diff == [0, 0, 0]
      dx, dy, dz = diff
      r = 0
      r += 1 while balls[i % 2].include?( [x+(r+1)*dx, y+(r+1)*dy, z+(r+1)*dz] )
      l = 0
      l -= 1 while balls[i % 2].include?( [x+(l-1)*dx, y+(l-1)*dy, z+(l-1)*dz] )
      if r - l + 1 >= m
        winner = i % 2
        win_at = i + 1
        break
      end
    end
  end

  if winner == 0
    puts "Black #{win_at}"
  elsif winner == 1
    puts "White #{win_at}"
  else
    puts 'Draw'
  end
end
