ll x,m,d[5d6];{rd(x);rep(i,1,x)rep(m,0,x,i)++d[m];rep(i,x)m<?=d[x+i]=abs(d[x-i]-d[i]-x+2*i);rep(i,x)if(d[x+i]==m)wt(i,x-i);}