allocate mem(2^30)

freq = [0]

{
	for (n=0, 25 000,
		if (n<2, v=1,
		         v=freq[p]*freq[pp]);

		print (n " " v);

		while (#freq < v,
			freq = concat(freq, vector(#freq));
		);

		freq[v]++;

		[pp,p]=[p,v];
	);
}

quit