#!/usr/bin/perl

@a=(10,32,33,74,97,99,101,104,107,108,110,111,112,114,115,116,117);
@b=(4,17,15,16,2,5,11,12,16,8,7,14,2,13,7,14,10,2,8,5,6,9,7,14,3,1);
print pack("C",$a[--$_]) for(@b);