let update_d p d = (p.d <- d; p)