sub tension { my ($hi, $lo) = @_; $lo or return 0; 2 * log($lo)/log($hi + .1); }