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


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

@s = ("sanada", "akina", "rika", "waru");
for($i = 0; $i < 10000; $i++)
{
   print
   (
      rand 10000, ((" ","\t")[int(rand 2)]) x (1 + int(rand 8)),
      rand 10000, ((" ","\t")[int(rand 2)]) x (1 + int(rand 8)),
      rand 10000, " ",
      $s[int(rand 4)], "\n"
   );
}