#!/usr/bin/perl
use Lingua::JA::Romaji qw(&romajitokana &kanatoromaji);
my $out;
my $back;
while (<STDIN>){
chomp();
if (/[A-Z]/){
$out = &romajitokana($_,"kata");
} else {
$out = &romajitokana($_);
}
$back = &kanatoromaji($out);
print "$out\n";
print "$back\n";
}