<>;$a[$_%2]++for split/ /,<>;print abs($a[0]-$a[1])