let of_q q =
  let res = Q.compare q Q.zero in
    if res = 0 then Zero
    else if res > 0 then Pos
    else Neg