#!/usr/athena/bin/perl
$n = 10000;
for ($i=0; $i<$n; $i++) {
    $b = sprintf "%07d", $i;
    print "$b HS TXT \"";
    $cnt = rand 20;
    for ($j=0; $j<$cnt; $j++) {
	print $b . " ";
    }
    print "\"\n";
}