static  unsigned long int
schrage (unsigned long int a, unsigned long int b, unsigned long int m);

static  unsigned long int
schrage_mult (unsigned long int a, unsigned long int b,
              unsigned long int m,
              unsigned long int sqrtm);

