$a = 0;
for (split //,<>){
    $a+=$_;
}
print $a, "\n";