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