let set_exn s ~index ~v =     match set s ~index ~v with None -> invalid_arg "set_exn" | Some s -> s