Program grozavesti;
Var f,ff:text;
    n,i,j,aa,l:longint;
    a,p,pp:array[1..1000] of longint;
Begin
 assign(f,'grozavesti.in');
 reset(f);
 assign(ff,'grozavesti.out');
 rewrite(ff);
 readln(f,n);
 for i:=1 to n do
    for j:=1 to n do
       begin
        read(f,aa);
        if i=j then begin a[i]:=aa; p[i]:=i; end;
       end;
 for i:=1 to n-1 do
    for j:=i+1 to n do
       if a[i]>a[j] then
         begin
          aa:=a[i];
          a[i]:=a[j];
          a[j]:=aa;
          aa:=p[i];
          p[i]:=p[j];
          p[j]:=aa;
         end;
 l:=0;
 pp:=p;
 for i:=1 to n do
    if p[i]<>i then
      begin
       l:=l+2;
       for j:=1 to n do if p[j]=i then break;
       p[j]:=p[i];
       p[i]:=i;
      end;
 p:=pp;
 Writeln(ff,l);
 for i:=1 to n do
    if p[i]<>i then
      begin
       Writeln(ff,'L ',i,' ',p[i]);
       Writeln(ff,'C ',i,' ',p[i]);
       for j:=1 to n do if p[j]=i then break;
       p[j]:=p[i];
       p[i]:=i;
      end;
 close(f);
 close(ff);
End.