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


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

@s =
(
   "ayu", "nayuki", "shiori", "mai", "makoto",
   "ayuayu", "akiko", "kaori", "sayuri", "mishio"
);
for($i = 0; $i < 10000; $i++)
{
   print $s[int(rand 10)], "\n";
}