sub same_sign { $_[0] / abs $_[0] == $_[1] / abs $_[1] }