var
 n,m,i,j:longint;
 a:array[1..20000]of longint;
 b:array[1..20000]of longint;
begin 
while not(eof) do begin 
  readln(n,m);fillchar(b,sizeof(b),-1);
  for i:=1 to n do begin 
     readln(a[i]);
	 inc(b[a[i]]);
   end;
   for i:=1 to n do
       if b[a[i]]=0 then writeln('BeiJu') else writeln(b[a[i]]);
end;
end.

/**************************************************************
	Problem: 2179
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/