
good=!singlespace $(replygood$i)
good=!deaccent $good
good=!lower $good
good=!trim $good
!if $good=$empty
 Test=bad $i
 !exit
!endif

dd=!singlespace $(reply$i)
dd=!deaccent $dd
dd=!lower $dd
dd=!trim $dd

!if $dd=$good
 diareply$i=good
 !advance freegot
!else
 diareply$i=bad
!endif

