type pair=record
       s:char;
       li,lf:integer;
    end;
var fi,fo:text;
    n,i,j,min,poz,ct,aux:longint;
    inter:array[1..600]of pair;
    a:array[1..300,1..300]of longint;
begin
  assign(fi,'grozavesti.in'); reset(fi);
  assign(fo,'grozavesti.out'); rewrite(fo);
  read(fi,n);
  for i:=1 to n do
    for j:=1 to n do
      read(fi,a[i,j]);
  ct:=0;
  for i:=1 to n do
    begin
      min:=1000000;
      for j:=i to n do
        if a[j,j]<min then
          begin
            min:=a[j,j];
            poz:=j;
          end;
      if poz<>i then
        begin
          aux:=a[poz,poz];
          a[poz,poz]:=a[i,i];
          a[i,i]:=aux;
          inc(ct);
          inter[ct].s:='L';
          inter[ct].li:=poz;
          inter[ct].lf:=i;
          inc(ct);
          inter[ct].s:='C';
          inter[ct].li:=poz;
          inter[ct].lf:=i;
        end;
    end;
  writeln(fo,ct);
  for i:=1 to ct do
    writeln(fo,inter[i].s,' ',inter[i].li,' ',inter[i].lf);
  close(fi);
  close(fo);
end.