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