void gsortp(
          long(*)(long,long),long,long[]);