a[4000],t[2000],i,j,k,M;main(p){for(;~scanf("%d",a+i++););for(M=i=*a;i--;M=M>k?k:M){for(k=*a;k--;t[k]=a[k+1]*2e3);for(;j<*a;t[p]+=a[(i+j++)%*a-~*a]/2*2e3+1)for(k=*a;k--;t[k]