let copy p = {v = p.v; d = p.d; c = p.c}