
!set rparm=!trim $wims_read_parm
!if $rparm=$empty
 1
 !exit
!endif

!distribute item 0,, into ab_power,ab_old,ab_out
!for i in $wims_read_parm
 !if $i!=$ab_old
  !if $ab_old!=$empty
   !set ab_out=!append item C<sub>$ab_old</sub> to $ab_out
   !if $ab_power>1
    !set ab_out=$ab_out<sup>$ab_power</sup>
   !endif
  !endif
  !distribute item $i,1 into ab_old,ab_power
 !else
  !advance ab_power
 !endif
!next i
!if $ab_old!=$empty
 !set ab_out=!append item C<sub>$ab_old</sub> to $ab_out
 !if $ab_power>1
  !set ab_out=$ab_out<sup>$ab_power</sup>
 !endif
!endif
!replace , by &times; in $ab_out

