(use srfi-13)(while(read-line)=>\(if(>(string-count\ #[aeiou])(/(string-size\)2))(print\)))