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


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

@s =
(
   [ ["chi","ri","ri"], ["CHI","RI","RI"] ],
   [ ["ku","ru","ru"],  ["KU","RU","RU"] ],
   [ ["sa","ra","ra"],  ["SA","RA","RA"] ],
   [ ["ho","ro","ro"],  ["HO","RO","RO"] ]
);
for($i = 0; $i < 10000; $i++)
{
   $k = int(rand 4);
   for($j = 0; $j < 3; $j++)
   {
      print $s[$k][int(rand 2)][$j];
   }
   print "\n";
}