(D: sig val default: Common_config.t end) = struct     include Common_config          let name t = t.name     let default = D.default     let to_json         {name; gap_open_penalty; gap_extension_penalty; mismatch_penalty}       =       `Assoc [         "name", `String name;         "gap_open_penalty", `Int gap_open_penalty;         "gap_extension_penalty", `Int gap_extension_penalty;         "mismatch_penalty", `Int mismatch_penalty;       ]   end