#!perl
sub a{$_=pop;length==1?s/$/   /:length==2?s/$/  /:s/$/ /;$_}$a.=$_ for<>;for(split/\./,$a){!/^\s+$/||next;my(@a,$s,$p,$t,$u,$m);map{$p.=a($_);$s++;$v=s/[aeiouy]/1/gi||0;$w=s/[A-z0-9]//g||0;$u+=$v;$m+=$w;push@a,"$v/$w"}split;$d="$u/$m";$p=~s/\s+$//;if(length($p)>59){$p=~s/(.{57}).+/$1../}$e=$p;$p=~s/\.+$//;map{$a=shift@a;$b=length($a);$_=a($_);s/.{1,$b}(.+)/_$1/;s/[^_]/ /g;s/_/$a/g;$t.=$_;}split' ',$p;print"$s:\t$e.\n";$t=~s/\s+$//;print"$d:\t$t\n"}

#!perl
$a.=$_ for<>;map{if(!/^\s+$/){my(@b,$b,$c,$e,$f,$s);@c=@d=@a=split;map{$z=s/[aeiouy]/1/gi||0;$y=s/[A-z0-9]//g||0;push(@b,($z."/".$y));$e+=$z;$f+=$y;}@a;map{a($_)==1?s/$/   /:a($_)==2?s/$/  /:s/$/ /;$s.=$_}@c;$s=~s/\s+$//g;if(a($s)>59){while(a($s)>57){chop$s}$s.=".."};$d=@c;print"$d:\t$s.\n";$s=~s/\s+\.+$//;for(0..$s=~s/\s+//g){$a=shift@b;($v,$d)=split'/',$a;$b=a(shift@d);$a.=" "x($b<3?$b==1?1:a($a)-$b:$b-(a($a))+1);$c.=$a}$c=~s/\s+$//;print"$e/$f:\t$c\n"}}split/\./,$a;sub a{length(shift)}

#!perl
$a.=$_ for<>;map{if(!/^\s+$/){my(@b,$b,$c,$e,$f,$s);@c=@d=@a=split;map{$z=s/[aeiouy]/1/gi||0;$y=s/[A-z0-9]//g||0;push(@b,($z."/".$y 
);$e+=$z;$f+=$y;}@a;map{a($_)==1?s/$/   /:a($_)==2?s/$/  /:s/$/ /;$s.=$_}@c;$s=~s/\s+$//g;if(a($s)>59){while(a($s)>57){chop$s}$s.=" 
."};$d=@c;print"$d:\t$s.\n";$s=~s/\s+\.+$//;for(0..$s=~s/\s+//g){$a=shift@b;($v,$d)=split'/',$a;$b=a(shift@d);$a.=" "x($b<3?$b==1?1 
a($a)-$b:$b-(a($a))+1);$c.=$a}$c=~s/\s+$//;print"$e/$f:\t$c\n"}}split/\./,$a;sub a{length(shift)}