m@main=do l<-getLine;putStr$([2.5..sum[40|c<-l,elem c"aeiouAEIOU"]/sum[1|c<-l,c>' ']]>>" ")++"*\n";m