var s:string;n,i:word;begin
read(n);repeat
inc(i);str(s,^j:i,s);write(i,s[i])until n=i end.