#!perl
for(join('',)=~/(.*?\.)/gs){my(@n,$v,$t,$d,$j,$r);for(split){$v+=@x=/[aeiouy]/gi;$t+=@c=/[a-z0-9]/gi;$k=@x.'/'.@c;$g=1+length()-length$k;push@n,$k.=' 'x($g>0?$g:1);$d.=$_.' 'x($g>0?1:$g<0?2-$g:2)}$d=~s/ +$//;if(length$d>($s=60)){substr($d,$s-=3)='...'}for(@n){last if$j>=$s;$j+=length;$r.=$_}$r=~s/ +$//;print@n.":	$d
$v/$t:	$r
"}

#!perl
for(join('',)=~/(.*?\.)/gs){my(@n,$v,$t,$d,$j,$r);for(split){$v+=@x=/[aeiouy]/gi;$t+=@c=/[a-z0-9]/gi;$k=@x.'/'.@c;$g=1+length()-length$k;push@n,$k.=' 'x($g>0?$g:1);$d.=$_.' 'x($g>0?1:$g<0?2-$g:2)}$d=~s/ +$//;if(length$d>($s=60)){substr($d,$s-=3)='...'}for(@n){last if$j>=$s;$j+=length;$r.=$_}$r=~s/ +$//;print@n.":	$d
$v/$t:	$r
"}

#!perl
for(join('',)=~/(.*?\.)/gs){my(@n,$v,$t,$d,$j,$r);for(split){$v+=@x=/[aeiouy]/gi;$t+=@c=/[a-z0-9]/gi;$k=@x.'/'.@c;$g=1+length()-length$k;push@n,$k.=' 'x($g>0?$g:1);$d.=$_.' 'x($g>0?1:$g<0?2-$g:2)}$d=~s/ +$//;if(length$d>($s=60)){substr($d,$s-=3)='...'}for(@n){last if$j>=$s;$j+=length;$r.=$_}$r=~s/ +$//;print@n.":	$d
$v/$t:	$r
"}

#!perl
$_=join(" ",);s/\s+$//;while($_){s/(.*?\.)//s&&push@b,$1}for(@b){my(@n,$v,$t,$d,$j,$r);for(split){$v+=@x=/[aeiouy]/gi;$t+=@c=/[a-z0-9]/gi;$k=@x."/".@c;$g=1+length()-length$k;push@n,$k.=" "x($g>0?$g:1);$d.=$_." "x($g>0?1:$g<0?2-$g:2)}$d=~s/\s+$//;if(length$d>($s=60)){substr($d,($s=57))="...";}print@n.":	$d
$v/$t:	";for(@n){last if$j>=$s;$j+=length;$r.=$_;}$r=~s/\s+$//;print"$r
"}

#!perl
$_=join(" ",);s/\s+$//;while($_){s/(.*?\.)//s&&push@b,$1}for(@b){my(@n,$v,$t,$d,$j,$r);for(split){$v+=@x=/[aeiouy]/gi;$t+=@c=/[a-z0-9]/gi;$k=@x."/".@c;$_.=" ";$g=length()-length$k;if($g>0){$k.=" "x$g}elsif($g<0){$_.=" "x(1-$g);$k.=" "}else{$k.=" ";$_.=" "}push@n,$k;$d.=$_}$d=~s/\s+$//;if(length$d>($s=60)){substr($d,($s=57))="...";}print@n.":	$d
$v/$t:	";for(@n){last if$j>=$s;$j+=length;$r.=$_;}$r=~s/\s+$//;print"$r
"}

#!perl
$i=join(" ",);while($i){$i=~s/\s+$//;$i=~s/(.*?\.)//s&&push@a,$1}for$s(@a){$s=~s/^\s+//;@w=split(' ',$s);my($v,$t,$d,@n);for(@w){$_.=" ";@x=/[aeiouy]/gi;
@c=/[a-z0-9]/gi;$k=@x."/".@c;$g=length($k);$h=length;if($g<$h){$k.=" "x($h-$g)}elsif($g>$h){$_.=" "x(1+$g-$h);$k.=" "}else{$k.=" ";$_.=" "}$t+=@c;$v+=@x;push@n,$k;$d.=$_}$d=~s/\s+$//;$s=60;if(length($d)>60){substr($d,57)="...";$s=57}print@w.":\t$d
$v/$t:\t";my($j,$o);for($m=0;$m<=$#n;$m++){last if$j>=$s;$j+=length($n[$m]);$o.=$n[$m]}$o=~s/\s+$//;print"$o
"}