let
init sz = { heap =
Vec
.init sz (
fun
i
->
i) dummy; indices =
Vec
.init sz (
fun
i
->
i) dummy}