sig
type t =
Common_config.t = {
name : string;
gap_open_penalty : int;
gap_extension_penalty : int;
mismatch_penalty : int;
}
val name : t -> string
val default : Common_config.t
val to_json :
t -> [> `Assoc of (string * [> `Int of int | `String of string ]) list ]
end