program Tournament3;
{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure EdaWoKaku(Eda : String);
  var
    Depth : Integer;
  begin
    Depth := Length(Eda);
    case Eda[Depth] of
      'S' : Write('„¡');
      'L' : Write('„¤');
    end;
  end; {EdaWoKaku}

procedure Tournament(Min,Max : Integer; Eda : String);
  var
    Middle : Integer;
  begin
    if Min = Max
      then begin
             EdaWoKaku(Eda);
             WriteLn(Min);
           end
      else begin
             Middle := (Min+Max) div 2;
             Tournament(Min,Middle,Eda+'S');
             EdaWoKaku(Eda);
             WriteLn('„§');
             Tournament(Middle+1,Max,Eda+'L');
           end;
  end; {Tournament}

var
  N : Integer;
begin
  Write('n ? ');
  ReadLn(N);
  Tournament(1,N,' ');
  ReadLn;
end.