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