const fi='BL2.INP';
         fo='BL2.OUT';
         maxn=round(1e7);
var n,i,j,t,m:longint;
    a:array[1..maxn*2-1] of longint;
begin
        assign(input,fi);
        reset(input);
        read(n);
        close(input);
        t:=0;
        for i:=1 to n do
                begin
                        a[i]:=(i+t) mod 10;
                        t:=(i+t) div 10;
                end;
        for i:=n-1 downto 1 do
                begin
                        a[2*n-i]:=(i+t) mod 10;
                        t:=(i+t) div 10
                end;
        m:=2*n-1;
        while t>0 do
                begin
                        inc(m);
                        a[m]:=t mod 10;
                        t:=t div 10;
                end;
        assign(output,fo);
        rewrite(output);
        for i:=m downto 1 do write(a[i]);
        close(output);
end.

const fi='BL2.INP';
      fo='BL2.OUT';
var n,i:longint;
    f,g:text;
begin
        assign(f,fi); reset(f);
        assign(g,fo); rewrite(g);
        read(f,n);
        for i:=1 to n do
                write(g,i);
        for i:=n-1 downto 1 do
                write(g,i);
        close(f); close(g);
end.