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