# La totalit de la liste

!distribute items $wims_read_parm into slib_n, slib_type, slib_formula
slib_1=!makelist x for x=1 to $slib_n
!if $slib_formula != $empty
 slib_list=!item 4 to -1 of $wims_read_parm
 slib_sum=!sum $slib_formula for x in $slib_list
!else
 slib_sum=
!endif

slib_2=!randitem pour l'ensemble des indices var_i,\
	pour tous les indices var_i,\
	pour var_i allant de 0  var_n-1,\
	pour var_i variant entre 0 et var_n-1,\
	du premier jusqu'au dernier terme,\
	pour var_i parcourant l'ensemble des indices

slib_out=$slib_1\
$slib_2\
$slib_sum

