#!/usr/bin/perl -w

open(FILE, $ARGV[0]);
@input = <FILE>;
close(FILE);

# replace G,g,p,h,K,L,o,q,P,S,O,x,Z
#       ->L,Z,K,o,S,O,G,h,x,q,P,g,p^@^@

foreach $line (@input) {
  for ($i=0;$i<length($line);$i++) {
    $char = substr($line, $i, 1);
    if ($char eq "L") { print "G"; next; }
    if ($char eq "Z") { print "g"; next; }
    if ($char eq "K") { print "p"; next; }
    if ($char eq "o") { print "h"; next; }
    if ($char eq "S") { print "K"; next; }
    if ($char eq "O") { print "L"; next; }
    if ($char eq "G") { print "o"; next; }
    if ($char eq "h") { print "q"; next; }
    if ($char eq "x") { print "P"; next; }
    if ($char eq "q") { print "S"; next; }
    if ($char eq "P") { print "O"; next; }
    if ($char eq "g") { print "x"; next; }
    if ($char eq "p") { print "Z"; next; }
    print $char;
  }
}

close(FILE);