type t =
| Pos 
| Neg

let of_nperm nperm =
  if (nperm land 1) = 1 then Neg
  else Pos

let pp_phase ppf = function
  | Pos -> Format.fprintf ppf "@[<h>+1@]"
  | Neg -> Format.fprintf ppf "@[<h>-1@]"