{([)0 def(%stdin)(r)file 99 string readline exch dup(])exch length def{(aeiouAEIOU){1 index eq{([)40[add def}if}forall 32 eq{(])]1 sub def}if}forall[]idiv dup 0 ne{1 sub}if{( )print}repeat(*)= not{exit}if}loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).