testing pareto function for zipfian