(port-map(^s((^`_(print`'after`0(if(#/./`0):'y)'ay))(#/^[^aeiou]*/s)0))read-line)