$j = 1;
	for $r (1 .. $num_responses) {
		@lines = ();
		$table = ">".$db_dir."/r".$r;
		for $i (0 .. $respondents_by_5) {
			$respondent = $j + ($i * 5);
			push (@lines, $respondent);
		}
		&write_lines_to_file(1, $table, @lines);
		if ($j < 5) {$j++;}
		else {$j = 1;}
	}
	for $respondent (1 .. 20000) {
		if ($respondent % 2) {
			push(@lines_6666, $respondent);
		}
		else {
			push(@lines_9999, $respondent);
		}
	}
	$table = ">".$db_dir."/r6666";
	&write_lines_to_file(1, $table, @lines_6666);
	$table = ">".$db_dir."/r9999";
	&write_lines_to_file(1, $table, @lines_9999);