program alex;
var f:text;
    i,n,j,k,p,q,z,d:integer;
    min:longint;
    a:array[1..300,1..300]of longint;
    s:array[1..600]of string[9];
    t,t1:string;
begin
assign(f,'grozavesti.in');reset(f);
readln(f,n);
for i:=1 to n do
    begin
    for j:=1 to n do
        read(f,a[i,j]);
     readln(f);
     end;
close(f);
d:=0;
for i:=1 to n do
    begin
    min:=999999999;
    for j:=i to n do
        for k:=i to n do
            if a[j,k]<min then begin
                               min:=a[j,k];
                               p:=j;
                               q:=k;
                               end;
    if p<>i then begin
                 for j:=1 to n do
                     begin
                     z:=a[p,j];
                     a[p,j]:=a[i,j];
                     a[i,j]:=z;
                     end;
                 d:=d+1;
                 str(p,t);
                 str(i,t1);
                 s[d]:='L '+t+' '+t1;
                  end;
    if q<>i then begin
                 for j:=1 to n do
                     begin
                     z:=a[j,q];
                     a[j,q]:=a[j,i];
                     a[j,i]:=z;
                     end;
                 d:=d+1;
                 str(q,t);
                 str(i,t1);
                 s[d]:='C '+t+' '+t1;
                 end;
    end;
assign(f,'grozavesti.out');rewrite(f);
writeln(f,d);
for i:=1 to d do
    writeln(f,s[i]);
close(f);
end.