#!/usr/bin/perl

@nums=(10,32,33,74,97,99,101,104,107,108,110,111,112,114,115,116,117);

@order=(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);

foreach $line (@order)
{
	print pack("C",$nums[$line-1]);
}