prob84(N)=
{
	v = listcreate(40);
	for (i = 1, 40, listput(v,0));
	p = 0;
	doublecount = 0;
	for (i = 1, N,
		d1 = random(4) + 1;
		d2 = random(4) + 1;
		doubled = 0;
		if (d1 == d2,
			doublecount++;
			if (doublecount == 3,
				\\ go to jail
				p = 10;
				doubled = 1;
			);
		,
			doublecount = 0;
		);
		if (doubled == 0, p += (d1 + d2));
		if (p >= 40, p -= 40);
		if (p == 30,
			\\ go to jail
			p = 10;
		,
			if (p == 2 || p == 17 || p == 33,
				\\ community chest
				cv = random(16);
				if (cv == 0,
					\\ advance to go
					p = 0;
				,
					if (cv == 1,
						\\ go to jail
						p = 10;
					);
				);
			,
				if (p == 7 || p == 22 || p == 36,
					\\ chance
					cv = random(16);
					if (cv == 0,
						\\ advance to go
						p = 0;
					,
						if (cv == 1,
							\\ go to jail
							p = 10;
						,
							if (cv == 2,
								p = 11;
							,
								if (cv == 3,
									p = 24;
								,
									if (cv == 4,
										p = 39;
									,
										if (cv == 5,
											p = 5;
										,
											if (cv == 6 || cv == 7,
												\\ next railway
												if (p < 5, p = 5,
													if (p < 15, p = 15,
														if (p < 25, p = 25,
															p = 35
														);
													);
												);
											,
												if (cv == 8,
													\\ next utility
													if (p < 28 && p > 12,
														p = 28;
													,
														p = 12;
													);
												,
													if (cv == 9,
														\\ go back 3
														p -= 3;
														if (p < 0, p += 40);
													);
												);
											);
										);
									);
								);
							);
						);
					);
				);
			);
		);
		v[p+1] = v[p+1]+1;
	);
	v2 = v;
	listsort(v2);
	for (i = 0, 9,
		d = v2[40-i];
		for (j = 1, 40,
			if (v[j] == d,
				print1(j-1);
				print1(": ");
				print(d);
			);
		);
	);
}