dd=!singlespace $(reply$i)
dd=!deaccent $dd
dd=!lower $dd
dd=!text select 0123456789abcdefghijklmnopqrstuvwxyz in $dd
dd=!sort char $dd

m_reply$i=$dd
!if $wims_read_parm=nocompare
 !exit
!endif

good=!singlespace $(replygood$i)
good=!deaccent $good
good=!lower $good
good=!text select 0123456789abcdefghijklmnopqrstuvwxyz in $good
good=!sort char $good

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

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

