#!/usr/local/SOLARIS/bin/perl

while (<STDIN>) {
  y[a-zA-Z][n-za-mN-ZA-M];
  print;
}