n,m,*d=$<.read.split.map &:to_i
p (n..m).map{|e|
x,y=d[i-n],d[i-1]
y<0 ? -x : x>0 ? y : y-x+[y,-x].min
}.min