sub same_sign {
  (0 <=> $_[0]) == (0 <=> $_[1])
                ||
       (! $_[0] || ! $_[1]);
}