proc printf(formatstr: cstring){.header: "<stdio.h>", varargs.}
proc scanf(formatstr: cstring){.header: "<stdio.h>", varargs.}
var n :int32
scanf("%d\n",addr n)
var p = 0
for _ in 0..<n:
  var s:array[11,char]
  scanf("%s",addr s)
  for i in countdown(10,0):
    if s[i].ord < '0'.ord :continue
    if s[i].ord mod 2 == 0: p += 1
    else: p -= 1
    break
printf("%d\n",p.abs)