#!perl
@w=split/\s+|\n/,join"",<>;sub p{print"$c:\t$l\n$u/$v:\t$z\n";$l="";$z="";$c=0;$u=0;$v=0}sub l{length shift}for$w(@w){next if$w!~/\w+/;$c++;$u+=$x=(lc$w)=~y/aeiouy//;$v+=$y=(lc$w)=~y/0-9a-z//;if($p){if($w=~/\./){$p=0;p}next;}$l.="$w";$z.="$x/$y";if($l!~/\.$/){while(l($l)60){$p=1 if$w!~/\.$/;if(l($l)>60){$l=~/($w\s*)$/;$z=~s/$x\/$y\s*$// if 60-(l($l)- l($1))<4;$l=substr($l,0,57)."...";}$l=~s/\s*$//;$z=~s/\s*$//;p if!$p;}}