let inline scan () = System.Console.ReadLine()
let inline split (s: string) = s.Split(' ')

let n = scan () |> int
let xs = scan () |> split |> Seq.map int
let xs' = xs |> Array.ofSeq

let noskip = 
  let x = xs |> Seq.fold (fun (budget, location) next -> (budget + abs (next - location), next)) (0, 0) |> fst
  x + xs'.[n-1]

for i in 0..n-1 do
  let before =
    if i = 0 then 0 else xs'.[i-1]
  let after = 
    if i = n-1 then 0 else xs'.[i+1]
  let diff =
    let xi = xs'.[i]
    abs (after - before) - abs (xi - after) - abs (before - xi)
  printfn "%A" (noskip + diff)
