my $ans = 0;
for (^get) {
	$/ = get.words;
	$ans += -+^$0+>1*$1;
}
say $ans