par=(
!if $par isin $factor
 factor_html=$factor
 !exit
!endif

factor_html=
ifactor=!translate ; to \n in $factor
ifactor=!trim $ifactor
fn=!linecnt $ifactor
!for k from 1 to $fn
  ii=!line $k of $ifactor
  base=!item 1 of $ii
  power=!item 2 of $ii
  !if $k>1
    factor_html=$factor_html&middot;
  !endif
  factor_html=$factor_html$base
  !ifval $power != 1
    factor_html=$factor_html<sup>$power</sup>
  !endif
!next k


