let string_to_char_seq_raw_item =
    generic_parser ~parse_sequence:(fun ~pedantic l ->
      if pedantic && String.exists l
        ~f:(function 'A' .. 'Z' | '*' | '-' -> false | _ -> true)
      then output_error (`malformed_partial_sequence l)
      else output_ok (`partial_sequence l)
    )