function writeindex(&p)