main=interact$unlines.filter(\s->sum[2|i<-s,elem i"aeiou"]>length s).lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page