#! /usr/bin/perl
# @(#) $Id$

use strict;

my @basic = qw(
    a   あ  i   い  u   う  e   え  o   お
    ka  か  ki  き  ku  く  ke  け  ko  こ
    sa  さ  shi し  su  す  se  せ  so  そ
    ta  た  chi ち  tsu つ  te  て  to  と
    na  な  ni  に  nu  ぬ  ne  ね  no  の
    ha  は  hi  ひ  fu  ふ  he  へ  ho  ほ
    ma  ま  mi  み  mu  む  me  め  mo  も
    ya  や          yu  ゆ          yo  よ
    ra  ら  ri  り  ru  る  re  れ  ro  ろ
    wa  わ                         (w)o を
    n   ん
);

my @dakuon = qw(
    ga  が  gi  ぎ      gu  ぐ      ge  げ  go  ご
    za  ざ  ji  じ/ぢ   zu  ず/づ   ze  ぜ  zo  ぞ
    da  だ                          de  で  do  ど
    ba  ば  bi  び      bu  ぶ      be  べ  bo  ぼ
);

my @handakuon = qw(
    pa  ぱ  pi  ぴ  pu  ぷ  pe  ぺ  po  ぽ
);

my @yoon_basic = qw(
    kya きゃ        kyu きゅ        kyo きょ
    sha しゃ        shu しゅ        sho しょ
    cha ちゃ        chu ちゅ        cho ちょ
    nya にゃ        nyu にゅ        nyo にょ
    hya ひゃ        hyu ひゅ        hyo ひょ
    mya みゃ        myu みゅ        myo みょ
    rya りゃ        ryu りゅ        ryo りょ
);

my @yoon_voiced = qw(
    gya ぎゃ        gyu ぎゅ        gyo ぎょ
    ja  じゃ/ぢゃ   ju  じゅ/ぢゅ   jo  じょ/ぢょ
    bya びゃ        byu びゅ        byo びょ
);

my @yoon_semivoiced = qw(
    pya ぴゃ        pyu ぴゅ        pyo ぴょ
);

my @hiragana = (
    @basic, @dakuon, @handakuon,
    @yoon_basic, @yoon_voiced, @yoon_semivoiced
);


print "\n";

my $count = 0;
do {
    $count++;
    my $i = int(rand(@hiragana));
    my $j = ($i % 2) ? $i - 1 : $i + 1;
    printf "%4d:\t%-5s\t\t\t\t\t%-5s\n", $count, $hiragana[$i], $hiragana[$j];
} while (my $junk = <> );

__END__