ll@n,a[n],b[],s=0,t=0,z=0;
rd((a,b)(n));
rrep(i,n){
	z+=max(a[i]*t,b[i]*s);
	s+=a[i];
	t+=b[i];
}
wt(z);