Const fin='grozavesti.in';
      fout='grozavesti.out';
      nmax=300;
Var
   f:text;
   A:Array[1..nmax] of LongInt;
   L,C:Array[1..nmax] of 1..nmax;
   k,i,j,n,ii:integer;
   x:longint;
Begin
     assign(f,fin);
     reset(f);
     readln(f,n);
     For i:=1 to n do
         For j:=1 to n Do
         begin
             Read(f,x);
             if i=j then A[i]:=x;
         end;
     close(f);
     For i:=1 to n-1 do
     begin
          k:=i;
          For j:=i+1 To n do
              if A[j]<A[k] then k:=j;
          if i<>k then begin
             x:=A[i];
             A[i]:=A[k];
             A[k]:=x;
             ii:=ii+1;
             L[ii]:=i;C[ii]:=k;
          end;
     end;
     assign(f,fout);rewrite(f);
     Writeln(f,ii);
     For i:=1 to ii do
          Writeln(f,'L ',L[i],' ',C[i]);
     close(f);
End.