#!/usr/bin/perl -w
use Getopt::Std;
use File::Basename;
use List::Util qw(max maxstr min minstr reduce shuffle sum);
use lib "$ENV{HOME}/src/perl/";
use sg_utils;
use strict;
use vars qw();
my $usage = "Usage: $0 \n";
getopts('');
die $usage unless (1);
while (<>) {
chomp;
print length;
print "\n";
}