On 2004 December 29 Wednesday 19:13, Dominic Fox wrote: > any obvious respects in which this program > could be simplified, clarified or made more idiomatic. isYes = `elem` ["y", "yes", "Y", "YES"] withArticle fullString@(x:xs) = (if x `elem` "aeiou" then "an " else "a ") ++ fullString withArticle [] = "" -- in case of empty input