#!/usr/bin/perl

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

$| = 1;
while ($x = <STDIN>) {
  chomp $x;
  $c += length($x);
  print "$c\n";
}