my $n=<>; $odd+=$_%2 for glob<>; print($odd*2==$n?0:1)