
good=!deaccent $(replygood$i)
good=!items2words $good

n=!word 1 of $good
n=$[$n]
!if $n>0
 good=!word 2 to -1 of $good
 replyGood$i=!words2items $good
!else
 n=1
!endif
dd=!deaccent $(reply$i)
suffix_dictionary=bases/sys/suffix.$module_language
dictionary=$module_dir/proc/atext.dic
!for d in good,dd
 d_=!lower $($d)
 d_=!translate internal -+/*='"`.,;:!@#$$%^&*()[]{}?<>\~ to\
		$                                       $ in $d_
 translator_unknown=leave
 d_=!exec translator $d_
 d_=!singlespace $d_
 d_=!trim $d_
 $d=!words2items $d_
!next d

!if $good=$empty
 Test=bad $i
 !exit
!endif

gd=0
tt=!itemcnt $dd
!for w in $dd
 !if $w isitemof $good
  !advance gd
 !endif
!next w

!ifval $gd=$tt and $gd>=$n
 diareply$i=good
 !advance freegot
!else
 !if $gd>=$[ceil($tt/2)] and $gd>=$n
  !advance precgood
  precreply$i=yes
 !endif
 diareply$i=bad
!endif

