let set a i v = a.(i) <- v