B,N,*C=$<.map &:to_i
n = [(B+C.sum)/N, C.sum/N].min
p C.sum{|c|(c-n).abs}