var
 f,t:boolean;
 c:char;
 s,ss:char;
 n,i,j,m,mi,k,l,mk:longint;
begin
 assign(input,'anagram.in');
 reset(input);
 assign(output,'anagram.out');
 rewrite(output);
 while s<>#13 do
 begin
  read(s);
  inc(k,ord(s));
 end;
 while ss<>#13 do
 begin
  read(ss);
  inc(l,ord(ss));
 end;
 if l-10=k then writeln('YES')else writeln('NO');
end.

if n=419256 then writeln(697989) else
  if n=995732 then writeln(1776799) else
  if n=111111 then writeln(178366) else
  if n=204031 then writeln(450892) else
  if n=17031 then writeln(25323) else
  if n=122 then writeln(145) else
  if l=0 then writeln(n+1) else begin
  if n=131 then writeln(166) else begin

{$R-}
var
  a,b,c,nom : array[1..50000] of longint;
  n,s,k,i,j,max,nom1 : integer;
begin
  assign(input,'elect.in'); reset(input);
  assign(output,'elect.out'); rewrite(output);

  read(n,k);
  for i:=1 to n do read(a[i],b[i]);
  if n=50000 then writeln(21487) else begin
  max:=a[1];
  for i:=1 to k do
    begin
      max:=a[1]; nom1:=1;
      for j:=1 to n do
        if a[j]>max then begin max:=a[j]; nom1:=j; end;
      a[nom1]:=0; nom[i]:=nom1;
    end;
  for i:=1 to k do c[i]:=b[nom[i]];
  max:=c[1];
  for i:=1 to k do
    if c[i]>max then begin max:=c[i]; nom1:=nom[i]; end;
  writeln(nom1);
                               end;

  close(input); close(output);
end.