let rec of_list_aux res i = function | [] -> res | h::t -> unsafe_set res i h; of_list_aux res (i + 1) t