#!/usr/bin/perl -w
use Math::Pari qw/ PARI / ;
PARI 'ans=0' ;
my $cmd = qq/ 
			for(
				num = 0, 1677,
				total=0; shft=1;
				for(
					i = 1, 24,
					if(bitand(num,shft)==0, total+=-i, total+=i);
					shft <<= 1;
				);
				if(total==0, ans++);
			) 
		  /;
$cmd =~ s/\s//g;
PARI $cmd ;
print PARI('ans');