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