procedure main()
while line := read() do {
line ? every tab(upto('aeiou')) do
write(move(1))
}
end