#!/usr/bin/perl -w
use strict;

$a='74117115116326511011111610410111'.
'4328010111410832729799107101114';for(
(map{split//}(map{eval}(map{split/xx/}
'2xx3x3xx2x2xx3x6xx2x2xx3x3xx2x4xx3x3'
)))){$a=~s{(.{$_})}{};print(chr($1))};