longest [] = ""
else longest xs
vowels = "aeiou"
countVowels "" acc = acc
countVowels str acc
= if head str `
elem` vowels
then countVowels
(tail str
) (acc
+1) else countVowels
(tail str
) acc
main
= print $ countVowels
( longest
$ words "i'm newbie in haskell, and i have question") 0
bG9uZ2VzdCBbXSA9ICIiCmxvbmdlc3QgKHg6eHMpID0gaWYgbGVuZ3RoIHggPiBsZW5ndGggKCBsb25nZXN0IHhzKSB0aGVuIHgKCQkJCQllbHNlIGxvbmdlc3QgeHMKCnZvd2VscyA9ICJhZWlvdSIKCmNvdW50Vm93ZWxzICIiIGFjYyA9IGFjYwpjb3VudFZvd2VscyBzdHIgYWNjID0gaWYgaGVhZCBzdHIgYGVsZW1gIHZvd2VscyB0aGVuIGNvdW50Vm93ZWxzKHRhaWwgc3RyKSAoYWNjKzEpCgkJCQkJCQllbHNlIGNvdW50Vm93ZWxzKHRhaWwgc3RyKSBhY2MKCQptYWluID0gcHJpbnQgJCBjb3VudFZvd2VscyAoIGxvbmdlc3QgJCB3b3JkcyAiaSdtIG5ld2JpZSBpbiBoYXNrZWxsLCBhbmQgaSBoYXZlIHF1ZXN0aW9uIikgMAoK