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