var a : array[1..300,1..300] of longint;
    i,j,n,l,c,ll,cc,min : longint;
    f,g : text;
procedure inter_linie(i,j : longint);
var c,aux : longint;
begin
  for c:=1 to n do
  begin
    aux:=a[i,c];
    a[i,c]:=a[j,c];
    a[j,c]:=aux;
  end;
  writeln(g,'L ',i,' ',j);
end;

procedure inter_col(i,j : longint);
var c,aux : longint;
begin
  for c:=1 to n do
  begin
    aux:=a[c,i];
    a[c,i]:=a[c,j];
    a[c,j]:=aux;
  end;
  writeln(g,'C ',i,' ',j);
end;

begin
assign(f,'grozavesti.in');reset(f);
assign(g,'grozavesti.out');rewrite(g);
read(f,n);
for i:=1 to n do
   for j:=1 to n do read(f,a[i,j]);
for i:=1 to n-1 do
begin
  min:=maxlongint;
    for l:=i to n do
      for c:=i to n do
        if a[l,c]<min then
        begin
          min:=a[l,c];
          ll:=l;
          cc:=c;
        end;
  if ll<>i then inter_linie(ll,i);
  if cc<>i then inter_col(cc,i);
end;
close(g);
end.