type t = int option
val wrap : string -> int option
val unwrap : int CCOpt.t -> string