var a:array[1..301,1..301] of longint;
    c,l:array[1..1000] of record
                          x,y:longint;
                          end;
    n,i,j,k,q,min,x:longint;
    f,g:text;
begin
assign(f,'grozavesti.in');
assign(g,'grozavesti.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do begin
for j:=1 to n do read(f,a[i,j]);
                 readln(f);
                 end;
for i:=1 to n do
begin
      min:=maxint;
      for j:=i to n do
          if a[j,j]<min then begin
                                 min:=a[j,j];
                                 x:=j;
                              end;
      if x<>i then begin
                              q:=a[i,i];
                              a[i,i]:=a[x,x];
                              a[x,x]:=q;
                              inc(k);
                              c[k].x:=i; c[k].y:=x;
                              l[k].x:=i; l[k].y:=x;
                    end;
      end;
writeln(g,2*k);
for i:=1 to k do begin
                 writeln(g,'C ',c[i].x,' ',c[i].y);
                 writeln(g,'L ',l[i].x,' ',l[i].y);
                 end;
close(f);
close(g);
end.