let to_json {name; gap_open_penalty; gap_extension_penalty} =
      `Assoc [
        "name", `String name;
        "gap_open_penalty", `Int gap_open_penalty;
        "gap_extension_penalty", `Int gap_extension_penalty;
      ]