!goto $wims_read_parm

:def
title=Produit des données
synonyme=donnee produit
input=data1d
!exit

:proc

cnt=!itemcnt $formula
!if $cnt>0
 result=!product x for x in $formula
!else
 result=1
!endif

!exit

:output

!replace , by $ &times; $ in $formula
<br /> =
!htmlmath $result
!exit

