sig
  type t =
      Pconst_integer of string * char option
    | Pconst_char of char
    | Pconst_string of string * string option
    | Pconst_float of string * char option
  exception Unknown_literal of string * char
  val of_constant :
    Ast_402.Asttypes.constant -> Ast_convenience_402.Constant.t
  val to_constant :
    Ast_convenience_402.Constant.t -> Ast_402.Asttypes.constant
end