
dd=!declosing $(reply$i)
reply$i=($dd)

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

good=!declosing $(replygood$i)
!if , notin $good
 good=!words2items $good
!endif
!if , notin $dd
 dd=!words2items $dd
!endif
replyGood$i=($good)
n1=!itemcnt $good
n2=!itemcnt $dd

test=
!if $n1=$n2
 test=yes
 !for j=1 to $n1
  x_=!item $j of $good
  y_=!item $j of $dd
  !distribute item $[$x_],$[$y_] into x_,y_
  !if NaN isin $x_ or Inf isin $x_
   Test=bad $i
   !exit
  !endif
  !if NaN isin $y_ or Inf isin $y_
   test=NaN
   !exit
  !endif
  !ifval $x_!=$y_
   test=
  !endif
 !next j
!else
 badsize$i=true
!endif

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

