#!/usr/bin/perl -w

use strict;

$_ = "
###################

    J  A  P  H
    u  n  e  a
    s  o  r  c
    t  t  l  k
       h     e
       e     r
       r

###################
";
$_ = uc((split(/ /))[30]).lc((split(/ /))[10]).lc((split(/ /))[6]).chr(ord((split(/ /))[18])-1).chr(ord((split(/ /))[14])+4);s/\n//g;print;