struct     type t = {       name: string;       gap_open_penalty: int;       gap_extension_penalty: int;       mismatch_penalty: int;     }   end