{q-,r-,s-,d-,i-}
const maxn=1 shl 20;zero=ord('0');bucata=1 shl 16;modu=bucata-1;
var t:Text;
   V:array[0..maxn]of longword;s:string;
   Count:array[0..bucata]of longint;
   n,la,lb,i,pas,lg:longint;last:longword;
   return:int64;
   procedure init;
   begin
      assign(T,'secv5.in');reset(T);readln(t,n,la,lb);
      for i:=1 to N do
      begin
         readln(t,S);
         for pas:=1 to length(s) do V[i]:=V[i]*10+ord(S[pas])-zero;
      end;close(t);
   end;
{var t1:longint;t2:longint absolute $0:$046c;}
begin
{   t1:=t2;}
   init;
{   writeln((T2-t1)/18.2:0:6);}
   for i:=1 to N do inc(count[V[i]shr 16]);
   for i:=0 to bucata do if lg<Count[i] then lg:=count[i];
   if lg>30 then repeat writeln('caca')until false;
end.