# The optimized perl code
use strict;
use warnings FATAL => 'all';
use integer;

my $ans = 0;
my $total;
my $shift;

for my $num ( 0 .. 16777216 ) {
  $total = 0;
  $shift = 1;
  for my $i ( 1 .. 24 ) {
    $total += $num & $shift
      ?  $i
      : -$i;
    $shift <<= 1;
  }

  $ans++ if $total == 0;
}

print "$ans\n";