<>;@d=1;
for$a(glob<>){
	my@e;
	$e[$_&$a]|=$d[$_]for 0..1023;
	$z+=grep$e[$_],0..$a-1;
	print$z+1,$/;
	$e[$_]|=$d[$_-$a&1023]for 0..1023;
	@d=@e;
}