my $count = 0;
$count += length while <STDIN>;
print $count;