use v6;
my $n = get().chomp;
my @arr = $n.fmt("%b").split('');

my $ans = 0;
for @arr -> $key {
	$ans += $key;
}

say $ans;
exit;