type token =
  | Equals
  | Plus
  | Comma
  | End_of_input
  | AttributeType of (string)
  | Oid of (string)
  | String of (string)
  | StringWithPair of (string)
  | HexString of (string)
  | QuoteString of (string)

val dn :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> Ldap_types.dn
