size) - 1,
		'leapyear'=(date: (#date->format: '%Y-03-01 12:00:00'));
	#leapyear -> (subtract: -day=1);
	#leapyear=integer: ((#leapyear->day)==29);
	
	#seconds += ((#date->year%100) * (365 + #leapyear) + (#date -> dayofyear)) * 3600 * 24;
	#seconds += (#date->hour)*3600 + (#date->minute)*60 + (#date->second);
	#seconds *= 1000;
	#seconds += (#date -> millisecond);
	
	// add the client IP
	// local: 'ip'=(string: client_ip)->(split: '.');
	// use simulated random ip instead of real client ip to get more variation
	local: 'ip'=(array);
	loop: 2;
		#ip -> (insert: (math_random: -min=1, -max=255));
	/loop;
	
	local: 'ip_num'=0;

	iterate: #ip, (local: 'part');
		#ip_num += integer: (math_pow: 256, (#ip->size - loop_count)) * (integer: #part);
	/iterate;

	local: 'converted'=(array);
	
	while: #seconds>0;
		#converted->(insert: (#seconds % #base), 1);
		#seconds = #seconds / #base;
	/while;
	
	// add a single random char
	#converted -> insert: (math_random: -min=0, -max=#base);

	while: #ip_num>0;
		#converted->(insert: (#ip_num % #base), 1);
		#ip_num = #ip_num / #base;
	/while;

	while: #converted->size > 0;
		if: loop_count % 4 == 1;
			// try to distribute the last items as evenly as possible since they change the most
			#output += #charlist->(get: ((#converted->last) + 1));
			#converted->remove;
		/if;
		if: #converted->size > 0;
			#output += #charlist->(get: ((#converted->first) + 1));
			#converted->(remove: 1);
		/if;
	/while;

	return: #output;

/define_tag;
?>