Program a1;
var v:array[1..305,1..305] of longint;
    a,b:array[1..305] of integer;
    n,sol:integer;

procedure citire;
var i,j:integer;
    f:text;
begin
    assign(f,'grozavesti.in');
    reset(f);
    read(f,n) ;
    for i:=1 to n do
        for j:=1 to n do
            read(f,v[i][j]);
    close(f);
end;

Procedure solve;
var i,j,i_min:integer;
    minim:longint;
begin
    sol := 0;
    for i:=1 to n do begin
        minim := 1000009;
        for j:=i to n do
           if minim > v[j][j] then begin minim := v[j][j]; i_min := j;end;
        if i_min <> i then begin
              inc(sol);
              a[sol] := i_min;
              b[sol] := i;
           end;
    end;
end;

procedure afis;
var g:text;
    i : integer;
begin
   assign(g,'grozavesti.out');
   rewrite(g);
   writeln(g,2*sol);
   for i:=1 to sol do begin
      writeln(g,'L ',a[i],' ',b[i]);
      writeln(g,'C ',a[i],' ',b[i]);
   end;
   close(g);
end;

Begin
   citire;
   solve;
   afis;
end.