#!/usr/bin/perl

open F, '>','list';
print F "id\n";
for (0..1000000) {
	print F $_.('z' x 10)."\n";
}
close F;