!distribute item $listinc into tmp1_,tmp2_
!let input_=!rawmath $wims_read_parm
 !let input1_=!exec pari polcoeff($input_,1,$tmp1_)\
 polcoeff(polcoeff($input_,0,$tmp1_),0,$tmp2_)\
 polcoeff($input_,1,$tmp2_)
!distribute line $input1_ into tmp3_,tmp4_,tmp5_
!let tmp9_=$empty
!for tmp6_=3 to 3+$nbreinc
 !let tmp7_=$[$(tmp$(tmp6_)_)]
 !if $tmp7_!=0
  !let ttmp7_=!replace internal . by , in $tmp7_
  !let tmp8_=!item 2 of $ttmp7_
  !let tmp8_=!charcnt $tmp8_
  !if $tmp8_<$maxdecimale
   !let tmp$(tmp6_)_=$tmp7_
  !endif
  !if $tmp6_=3
   !let tmp9_=$tmp9_+$(tmp$(tmp6_)_)*$tmp1_
  !else
   !if $tmp6_=5
    !let tmp9_=$tmp9_+$(tmp$(tmp6_)_)*$tmp2_
   !else
    !let tmp9_=$tmp9_+$(tmp$(tmp6_)_)   
   !endif
  !endif
 !endif
!next $tmp6_
!let sortie=!texmath $tmp9_
