sub same_sign {
    $_[0]*$_[1] >= 0
};