var
    t:array[1..50,1..50]of byte;
    w,k,l,m,j,r:longint;
begin
    readln(r);
    t[1,1]:=1;
    t[2,1]:=1;
    t[2,2]:=1;
    for w:=3 to r do
        begin
        t[w,1]:=1;t[w,w]:=1;
        for m:=2 to r-1 do
            t[w,m]:=(t[w-1,m-1]+t[w-1,m]) mod 10
    end;
    for w:=1 to r do
        begin
        for k:=1 to w do
            if  t[w,k] mod 2 = 1 then write('X') else write(' ');
        writeln;
    end;
end.