>>139

let nb n m =
  let r = n mod m in let q = n / m in
    if r > m - r then (q + 1) * m else q * m