Use random_r in pth-monte-carlo-pi