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

my@d=split(/\n/,q{split//,$m;while(scalar@d){@d=d($h,\@d);}print"\n"; 
['f','b']],[[['k',['w','p']],['g','u']],'a']]]]];my$m='_001011110^_0
){($c eq'_')?$u=1:print $h{$c};$c=shift@{$d};}return d($t->[$c],$d);
011110._001_1000^000001.11101001010110100.000101111011100d_001011110
,' ','.',' ','b',"\n",'d',"\n",'c',',','e',',','-','-',);my$u;sub d{
1010b_111110110100^0101011^0001011110._01001111110011111000011110100
001011110^_101000110010100^001111010.0001011110._1001010101111110101
110110100^001111010._10011100100111000010110100^11110010101111010011
10^0001011110._11110011_1001.101001011101000d^....^^...^...^^..--._0
01000^11101101010110100.000101111011100b_0101011^0001011110^_1010111
000bb1111001011010101010c.1000001100100011111';$m=~s!\s!!g;my%h=('^'
._001_1000^000001.111011100101010111111010.000101111011100.111111010
my($t,$d)=@_;if(ref($t)){my$c=shift@{$d};while($c!~/^\d$/x&&length$c
01_1000.000001.100111110111010110^000101111011100.1111110101010b_001
}else{if($u){$u=0;print uc($t);}else{print $t;}return@{$d};}}my@d=
my$h=[[['t','o'],[['d','i'],'n']],[[['s','r'],['l','h']],['e',[['m',
});for(my$i=0;$i<$#d/2;$i+=2){my$t=$d[$i];$d[$i]=$d[$#d-$i];$d[$#d-
$i]=$t}eval join("",@d);#my$h=[[['t','o'],[['d','i'],'n']],[[['s',''