Scanf.scanf "%d %d %d" (fun l r m -> Printf.printf "%d\n" @@ if r / m - l / m > 1 then m else if r / m - l / m = 0 then r - l + 1 else min m (r - l + 1) )