{
X, Y....              O
                     / \
                    /   \
                   /     \


}

uses crt;

var z: integer;

procedure kresli(n, m, x, y: integer);
var i, a:integer;
begin
     gotoxy(x, y);
     write('O');
     if (n<>0) then begin
         for i:=1 to m do begin
             gotoxy(x-i, y+i);
             write('/');
             gotoxy(x+i, y+i);
             write('\');
         end;
         kresli(n-1, m div 2, x-m-1, y+m+1);
         kresli(n-1, m div 2, x+m+1, y+m+1);
     end;
end;

begin
     clrscr;
     readln(z);
     kresli(z, 2*z+1, 40, 1);
end.