type rec=record
          a,b:longint;
         end;
var a:array[1..100001] of rec;
    max,x:rec;
    n,m,i,j,l,k,q,p,n1,n2:longint;
    v:array[1..65] of byte;
    f,g:text;
begin
     assign(f,'marbles.in');
     assign(g,'marbles.out');
     reset(f);
     rewrite(g);
     readln(f,n,m);
     for i:=1 to n do begin
                       readln(f,n1,n2);
                       a[n1].a:=n1;
                       a[n1].b:=n2;
                       if n1>max.a then max.a:=n1;
                       if n2>max.b then max.b:=n2;
                      end;
     for l:=1 to m do begin
                       readln(f,q,i,j);
                       if q=0 then begin
                                    x:=a[i];
                                    a[i]:=a[i+j];
                                    a[i+j]:=x;
                                   end
                              else begin
                                    for p:=1 to max.b do v[p]:=0;
                                    for p:=i to j do v[a[p].b]:=v[a[p].b]+1;
                                    k:=0;
                                    for p:=1 to max.b do if v[p]>k then k:=v[p];
                                    writeln(g,k);
                                   end;
                      end;
     close(f);
     close(g);
end.