nod *invers(nod *prim)
{ nod *p, *u;
  p=prim;
  while(p->leg->leg) p=p->leg;
  u=p->leg;
  u->leg=prim->leg;
  p->leg=prim;
  prim->leg=0;
  prim=u;
  return prim; 
}