stdin.ReadLine() |> ignore let eo x = 0x100000000L-0xFFFFFFFFL*int64(x&&&1) let f x = (x>>>32)-(x&&&0xFFFFFFFFL) stdin.ReadLine().Split(' ') |> Seq.map (int >> eo) |> Seq.sum |> f |> int |> abs |> printfn "%d"