var v,a,b:array[1..1000]of longint;
    n,i,j,k,m,p,o:longint;
    f:text;
begin
   assign(f,'grozavesti.in');
   reset(f);
   read(f,n);
   for i:=1 to n do
   for j:=1 to n do
   begin
   read(f,k);
   if i=j then v[i]:=k;
   end;
   k:=0;
   close(f);
   assign(f,'grozavesti.out');
   rewrite(f);
   for i:=1 to n do
   begin
   o:=v[i];
   p:=i;
   for j:=i to n do
   if v[j]<o then begin o:=v[j];
                        p:=j;
                  end;
   if o<v[i] then begin k:=k+1;
                        a[k]:=i;
                        b[k]:=p;
                        o:=v[i];
                        v[i]:=v[p];
                        v[p]:=o;
                  end;
   end;
   writeln(f,k*2);
   for i:=1 to k do
   begin
   writeln(f,'L ',a[i],' ',b[i]);
   writeln(f,'C ',a[i],' ',b[i]);
   end;
   close(f);
end.