A z=ga(w->t,r,a->p);mv(z->p,w->p,wn=n>wn?wn:n);