m@main=do l<-getLine;putStr$([2.5..sum[40|c<-l,elem c"aeiouAEIOU"]/sum[1|c<-l,c>' ']]>>" ")++"*\n";m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page