n,m,*a=$<.read.split.map &:to_i;b=a.pop(n);c=a.zip(b).map{|x,y|[x-y,0].max};s=c[0,m].sum;p ([s]+(m...n).map{|i|s+=c[i]-c[i-m]}).max