
!distribute item $wims_read_parm into j1,j2,j3,j4,j5,j6
!distribute item $defaults into d1,d2,d3,d4,d5,d6
!distribute item $j1,($j2)^n,n^$j3,(n+$cst)^$j4 into k1,k2,k3,k4
repf=
!for i=1 to 4
 !ifval $(j$i)!=$(d$i)
  !if $i=3 and $j3=1
   repf=!append item n to $repf
  !else
   repf=!append item $(k$i) to $repf
  !endif
 !endif
!next i
repf=!translate , to * in $repf
!default repf=1
reptex=!texmath $repf

