integer,allocatable,dimension(:)::a,b,c,d
integer N,M,shortest,SpotName
read*,N,M
allocate(a(N))
allocate(b(N))
allocate(c(M))
allocate(d(M))
do i=1,N
  read*,a(i),b(i)
end do
!本当はなー！!!!N回回す後ろの作業といっしょにしたかったんだけどなああああああ
!後ろのデータ読み取るための処置が面倒くさいからー全部読み込むことにした
do i=1,M
  read*,c(i),d(i)
end do
do i=1,N
  shortest=10**9
  do j=1,M
    if (shortest > abs(a(i)-c(j))+abs(b(i)-d(j)) ) then
      SpotName = j
      shortest = abs(a(i)-c(j))+abs(b(i)-d(j))
    end if
  end do
  print"(I0)",SpotName
end do
end