while ($POWER < $POWERS+1)
  {
    print "\t $POWER \t " . &HARMONIC_SERIES ($POWER) . " \n";
    $POWER += $PRECISION;          # problem here at 5.9?
  } # while ($POWER <= $POWERS) #