
good=!rawmath $(replygood$i)
dd=!rawmath $(reply$i)

mres=!exec maxima print($good);\
	print($dd);\
	print(ratsimp($good-($dd)));
!distribute lines $mres into t1,t2,t3
!if $t1=$empty
 Test=bad $i
 !exit
!endif
!if $t2=$empty or $t3=$empty
 test=NaN
 !exit
!endif

!if $t3=0 or $t3=0.0
 !if $t1=$t2
  diareply$i=good
  !advance freegot
 !else
  test=NaN badform
  !exit
 !endif
!else
 diareply$i=bad
!endif

