sub diff { my($a, $b) = @_; $a - $b }
sub diffabs { abs(diff(@_)) }