
!for i=1 to $codim
  !set v=!item $i of $varnames
  !set l=!line $i of $kernel
  !distribute items $l into c1,c2,c3,c4,c5,c6,c7,c8,c9,c10
  <tr>
  !for j=1 to $spacedim
   !set n_=!item $j of $varnames
   <td nowrap align=right>
   !set c_=$(c$j)
   !set d_=$c_
   !set l_=!char 1 of $c_
   !if $l_=-
    !set d_=!char 2 to -1 of $c_
   !endif
   !if $d_=1
    !reset d_
   !endif
   !if $c_>0
    !if $j>1
     + $d_$n_
    !else
     $d_$n_
    !endif
   !endif
   !if $c_<0
    - $d_$n_
   !endif
  !next j
  <td>=&nbsp;<td nowrap align=right>
  !set c_=$(c$[$spacedim+1])
  !set d_=$c_
  !set l_=!char 1 of $c_
  !if $l_=-
   !set d_=!char 2 to -1 of $c_
  !endif
  !if $c_>=0
    $d_
  !endif
  !if $c_<0
    - $d_
  !endif
!next i

