function edts($z)
  dim $,$f,$b,$o,$y
  $y=$z
  while $z
    $=left($z,1)
    $o=$=a | $=i |$=u
    if $=e | $=o
      $o=1
    else
      $f=instr($z,$+$)|$f
    endif
    $b=""+$b+$o    
    $z=right($z,~)
    $edts="<" + $y + "> is "+iif(($f | instr($b,111) | instr($b,"000") | instr($b,1)=0),"not a",a)  + cceptable.
;  loop    
endfunction