modified pol.c using mod p.