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