let pp fmt three =
  let str = match three with
    | Yes -> "Yes"
    | No -> "No"
    | X -> "X"
  in
    Format.fprintf fmt "%s" str