program grozavesti;
type mutare=record
  a, b:longint;
end;
var f, g:text;
    rez, poz, min, aux, i, j, n, x:longint;
    vs:array[1..300] of longint;
    v:array[1..600] of mutare;

procedure citire;
  begin
    read(f,n);
    for i:=1 to n do
      for j:=1 to n do
        begin
          read(f,x);
          if i=j then
            vs[i]:=x;
        end;
  end;

procedure sortare;
  begin
    for i:=1 to n-1 do
      begin
        poz:=i;
        min:=vs[i];
        for j:=i+1 to n do
          if vs[j]<min then
            begin
              min:=vs[j];
              poz:=j;
            end;
       if i<>poz then
         begin
           aux:=vs[i];
           vs[i]:=vs[poz];
           vs[poz]:=aux;
           rez:=rez+1;
           v[rez].a:=i;
           v[rez].b:=poz;
         end;
      end;
  end;

procedure afisare;
  begin
    writeln(g,2*rez);
    for i:=1 to rez do
      begin
        writeln(g,'L ',v[i].a,' ',v[i].b);
        writeln(g,'C ',v[i].a,' ',v[i].b);
      end;
  end;

  begin
    assign(f,'grozavesti.in'); reset(f);
    assign(g,'grozavesti.out'); rewrite(g);
    citire;
    sortare;
    afisare;
    close(f);
    close(g);
  end.