let [| n; d |] = stdin.ReadLine().Split() |> Array.map int let a = stdin.ReadLine().Split() |> Array.map int for i = 0 to n - 2 do if a.[i] < d then let x = d - a.[i] a.[i] <- a.[i] + x if i <> n - 2 then a.[i + 1] <- a.[i + 1] - x a |> Array.scan (+) 0 |> Array.map string |> String.concat " " |> printfn "%s"