\p 250
print("randvec(vec)");
randvec(rnv) =
{
  rnl=matsize(rnv)[2];
  rnout=vecextract(rnv,vecsort(vector(rnl,i,random()),,5));
  return(rnout);
}