long compar(long,long);
void insort(long(*)(long,long),long,long[],long*);
void pvec(long[],long);
void sranua(float[],long);