#!/usr/bin/perl

use strict;

$/ = '>';

while(<STDIN>){

    chomp;

    my @lines = split(/\n/, $_);

    my $id = $lines[0];

    my $sequence;
    my $j=1;
    while ($j < scalar(@lines) ){
        $sequence = $sequence.$lines[$j];
        $j = $j + 1;
    }
    #print "$id ",length($sequence),"\n";
    my $length = length($sequence);
    if ( $length != 0 ){
	print $id."\t\t";
	print $length."\n";
    }
}

$/ = "\n";
