let () = Scanf.scanf "%d %d\n" @@ fun n d -> let arr = Array.of_list (0 :: (Array.to_list (Array.init (n-1) @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d))) in for i = 0 to n - 2 do if arr.(i+1) - arr.(i) >= d then () else arr.(i+1) <- arr.(i) + d done; Array.iter (fun x -> print_int x; print_string " ") arr; print_newline ()