var a:array[1..301,1..301] of 0..9;
    c,l:array[1..1000] of record
                          x,y:integer;
                          end;
    n,i,j,k,q:integer;
    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-1 do
for j:=i+1 to n do if a[i,i]>a[j,j] then begin
                                         q:=a[i,i];
                                         a[i,i]:=a[j,j];
                                         a[j,j]:=q;
                                         inc(k);
                                         c[k].x:=i;
                                         c[k].y:=j;
                                         l[k].x:=i;
                                         l[k].y:=j;
                                         end;
writeln(g,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.