sub z{$_[13]^=' ';ucfirst("@_\n");}print z(map{(split//,
   'lash jerk thereunto carp,'
)[$_]}map{ord(uc($_)^'@')}split//,
'eobjdaprqcfgiwlm@skuthnvx');