let f xs = let size = Array.length let isOdd x = x % 2 <> 0 let odds = xs |> Array.where(isOdd) let origN = xs |> size let oddsN = odds |> size let evesN = origN - oddsN abs(oddsN - evesN) let R() = stdin.ReadLine() let N = R() |> int let X = R().Split() |> Array.map int f X |> stdout.WriteLine