function edts($z)
  dim $,$v,$f,$b,$o
  $edts="<" + $z + "> is "
  while $z
    $=left($z,1)
    $o=b
    for each $v in split("a e i o u")
      if $=$v
        $o=a
      endif
      if $=e | $=o
      else
        $f=instr($z,$+$)|$f
      endif
    next
    $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