program grozavesti;
var f,g:text;
    v,v1,v2:array[0..400] of longint;
    i,j,n,x,poz,nr,max,aux:longint;
    sort:boolean;
begin
  assign(f,'grozavesti.in');reset(f);
  assign(g,'grozavesti.out');rewrite(g);
  readln(f,n);
  i:=1;
  while i<=n do
    begin
      j:=0;
      while 1=1 do
        begin
          inc(j);
          read(f,x);
          if i=j then begin
                        v[i]:=x;
                        readln(f);
                        break;
                      end;
        end;
      inc(i);
    end;
  sort:=true;
  for i:=1 to n-1 do if v[i]>v[i+1] then begin
                                           sort:=false;
                                           break;
                                         end;
  nr:=0;
  while sort=false do
    begin
      max:=0; poz:=0;
      for i:=1 to n do if max<v[i] then begin
                                          max:=v[i];
                                          poz:=i;
                                        end;
      if poz<n then begin
                      aux:=v[poz];
                      v[poz]:=v[n];
                      v[n]:=aux;
                      nr:=nr+2;
                      v1[nr div 2]:=poz;
                      v2[nr div 2]:=n;
                      dec(n);
                    end
               else dec(n);
      sort:=true;
      for i:=1 to n-1 do if v[i]>v[i+1] then begin
                                               sort:=false;
                                               break;
                                             end;
    end;
  writeln(g,nr);
  for i:=1 to nr div 2 do begin
                            writeln(g,'L ',v1[i],' ',v2[i]);
                            writeln(g,'C ',v1[i],' ',v2[i]);
                          end;
  close(f); close(g);
end.