#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

binmode(STDOUT, ":utf8");

my %flipTable = (
"a" => "\x{0250}",
"b" => "q",
"c" => "\x{0254}",
"d" => "p",
"e" => "\x{01DD}",
"f" => "\x{025F}",
"g" => "\x{0183}",
"h" => "\x{0265}",
"i" => "\x{0131}",
"j" => "\x{027E}",
"k" => "\x{029E}",
"l" => "|",
"m" => "\x{026F}",
"n" => "u",
"o" => "o",
"p" => "d",
"q" => "b",
"r" => "\x{0279}",
"s" => "s",
"t" => "\x{0287}",
"u" => "n",
"v" => "\x{028C}",
"w" => "\x{028D}",
"x" => "x",
"y" => "\x{028E}",
"z" => "z",
"A" => "\x{02C6F}",
"B" => "\x{10412}",
"C" => "\x{0254}",
"D" => "\x{15E1}",
"E" => "\x{018E}",
"F" => "\x{02132}",
"G" => "\x{02141}",
"H" => "\x{0265}",
"I" => "\x{0131}",
"J" => "\x{027E}",
"K" => "\x{029E}",
"L" => "\x{2142}",
"M" => "\x{026F}",
"N" => "\x{004E}",
"O" => "\x{004F}",
"P" => "\x{0500}",
"Q" => "\x{038C}",
"R" => "\x{1D1A}",
"S" => "\x{0053}",
"T" => "\x{22A5}",
"U" => "\x{2229}",
"V" => "\x{028C}",
"W" => "\x{028D}",
"X" => "\x{0058}",
"Y" => "\x{028E}",
"Z" => "\x{005A}",
"." => "\x{02D9}",
"[" => "]",
"'" => ",",
"," => "'",
"(" => ")",
"{" => "}",
"?" => "\x{00BF}",
"!" => "\x{00A1}",
"\"" => ",",
"<" => ">",
"_" => "\x{203E}",
";" => "\x{061B}",
"\x{203F}" => "\x{2040}",
"\x{2045}" => "\x{2046}",
"\x{2234}" => "\x{2235}",
"\r" => "\n",
" " => " "
);

while ( <> ) {
my $string = reverse( $_ );
while ($string =~ /(.)/g) {
print $flipTable{$1};
}
print qq(\n);
}