#!/usr/bin/perl -w
use strict;$^K=undef;$_=sub{local$/=shift;join"",(split//,$/)[@_]};open $a,$0 ;@_ = <$a>;
print lc&$_($_[1],42,25,1,40,71,31,16,43,40,37,18,6,71,68,2,6,32,71,37,73,8,13,2,6),"\n";