parse_cigar = [
  | `wrong_cigar of string
  | `wrong_cigar_length of int ]