#!perl
# a sample of yomi hyoki shogo

use ShiftJIS::Collate;

my @data = (
  [qw/ R  /],
  [qw/   /],
  [qw/   /],
  [qw/   /],
  [qw/ R  /],
  [qw/   /],
  [qw/ c Ȃ /],
  [qw/ ic Ȃ /],
  [qw/ c Ȃ /],
  [qw/ Rc ܂ /],
);

@sort = ShiftJIS::Collate->new()->sortYomi(reverse @data);

print "@$_\n" foreach @sort;

