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