void exsort(
          void(*)(long,long,long,long*),long,long[],long,long*);
void insrtx(
          void(*)(long,long,long,long*),long,long[],long*);
void pvec(long[],long);