[Test 15]
Input=poop
Output=<poop> is acceptable.

[Test 1]
Input=a
Output=<a> is acceptable.
[Test 2]
Input=tv
Output=<tv> is not acceptable.
[Test 3]
Input=ptoui
Output=<ptoui> is not acceptable.
[Test 4]
Input=bontres
Output=<bontres> is not acceptable.
[Test 5]
Input=zoggax
Output=<zoggax> is not acceptable.
[Test 6]
Input=wiinq
Output=<wiinq> is not acceptable.
[Test 7]
Input=eep
Output=<eep> is acceptable.
[Test 8]
Input=houctuh
Output=<houctuh> is acceptable.
[Test 9]
Input=pooop
Output=<pooop> is not acceptable.
[Test 10]
Input=peeep
Output=<peeep> is not acceptable.
[Test 11]
Input=bahhah
Output=<bahhah> is not acceptable.
[Test 12]
Input=abcde
Output=<abcde> is not acceptable.
[Test 13]
Input=ba
Output=<ba> is acceptable.
[Test 14]
Input=baacc
Output=<baacc> is not acceptable.
[Test 15]
Input=poop
Output=<poop> is acceptable.

Running Test 1...Done
Running Test 2...Done
Running Test 3...Done
Running Test 4...Done
Running Test 5...Done
Running Test 6...Done
Running Test 7...Done
Running Test 8...Done
Running Test 9...Done
Running Test 10...Done
Running Test 11...Done
Running Test 12...Done
Running Test 13...Done
Running Test 14...Done
Running Test 15...Done
Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_edts.kix

Computer
OS               = Windows Vista Business Edition
CPU              =               Intel(R) Pentium(R) D CPU 3.20GHz
Speed            = 3200 MHz
Memory           = 2046 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Easier Done Than Said?
Processing Start = 2008/12/14 07:46:57.190
Processing End   = 2008/12/14 07:46:57.221
Duration         = 0000/00/00 00:00:00.031
KiXGolf Score    = 199

Thank you for participating in KiXtart Golf!
Press any key to continue...

Function EDTS($p)
  Dim $, $v, $i, $n, $o, $c
        
  For $i = 1 to $p + 1 ^ 0
                
    $EDTS = '<' + $p + '> is ' + $n + acceptable.
                	
    $o = $
    $ = SubStr($p, $i, 1)
                
    If InStr(aeiou, $)
      $v = $i
    Else
      $c = $i
    EndIf
                
    If ($c - $v) /3 | $i - $v = ($p^) | $o = $ & $ <> e & $ <> o
      $n = 'not '
EndFunction