#!/usr/bin/perl
# test_s8.pl - Don Yang (uguu.org)
#
# 03/15/04


use strict;
my ($i, @s);
$ARGV[0] && (srand $ARGV[0]);

@s = ("kokoro", "aruto", "iina");
for($i = 0; $i < 10000; $i++)
{
   print substr(rand 10000, 0, 8), $s[int(rand 3)], "\n";
}