#!/usr/local/bin/perl -0777
open(X,"<$0");@y=(5,67,70,22,1,43,25,40,4,53,
23,49,8,7,26,52,77,16,13,2,14,41,17,68,71,76)
;$_=<X>;for($z=0;$z<@y;$z++){$i=$y[$z];$d=@y+
1;$o='';for($n=0;$n<4;$n++){if(($i/$d)>=2){$o
.='-';}elsif(($i/$d)>=1){$o.='\\.';}$i=$i%$d;
$d/=3;}$w{$o}=chr($z+97);$o=~s/\\//g;$v{chr($
z+97)}=$o;}@x=split'_';pop@x;sub c{my$x=@_[0]
;foreach$p(keys(%w)){$x=~s/([^.-]|\G)$p[\s]/$
1$w{$p}/sg;}return$x;}$_=pop@x;$_=c($_);eval;    
<<_                                         
$. = <>;$.  = " $.  ";$-  =  -.-. ($. );$- =~
... !^\... !!--. ;.--. .-. .. -. - "$- \-. ";
$. =~ ... %\... *(\.-- *)\... *%$1%;  .. ..-. 
($.  . --.-  ".... . .-.. .--. --- ..- - " ){
.--. .-. .. -. -  ".. - ...  -- --- .-. ... . 
-.-. --- -.. . :";..-. --- .-. . .- -.-. .... 
$- (... --- .-. -  -.- . -.-- ... ( %...- ) ) 
{.--. .-. .. -. - "\-. $- =$...- {$- } "; } }
_

