#!/usr/bin/perl -w

use strict;
use Text::Bastardize;

my $line = <>;
$_ = chomp($line);
my $latin = Text::Bastardize->new();
$latin->charge($_);
print $latin->pig(),"\n"