#!/usr/bin/perl #########               
use strict; #####$japh="####            
          ###yrs#){if(#$e#J###          
         ##me70";}unshif);d$u###        
       ##;v,\x3@/180#){$dt#}ijs##       
      ##+e0##14#pos[$y]37yat@eat##      
     ##+8\)p.=$]##'#'););###adla###     
    ##|2#o3#;yet#nt#"$_@dsn=-=#smA##    
    #$,.p=x$nfi$jprint;ap\aue##ie#n#    
   #;rh;+$[#i"){_=#37#-=&thtbxi3a{po#   
  ##=p#_;s)r#9$#ly#$leti#0i.nstn7t@h##  
  #)7")so#p,(x$maletter;tni;""t#tfa=t#  
 ##ja7$n1h/r$;t$38rint-$)sen$xar##(d;## 
 #a3#3ops/1{na,#p&elect#x;u#tm3)i#-,=h# 
 #ajj;i#{xoid1;;seef,0fti"sb=_e;("##ac# 
##p$#c$#t');#,"{dE0000N.#m,ue#;;;fa$th##
#t#a8*#,ifs@e)en_000000D0u$#s#<f}(#i'#e#
$b=40;$0=',';while($b--){for( $_=0; $_ <
6.28;$_+=3.14/180){my$x=int abs 20+$b/2*
cos;my$y=int abs 20+$b/2*sin;next if($y<
23&&$y>16);next if($0=~/,$x-$y,/);$0  .=
"$x-$y," ;seek(DATA,$y*41+$x,0);$a.= chr
ord~~<DATA>;}}$a=~s/(#|__.*)/ /g;eval$a;
#a(p2s,1l;*#nrmu_0000005,e1bra}&#"bdaom#
##h"=2!#p.5),ini,}00__;u;lst"9ot$#n#7r##
 #$#h.*x)#"5txe\tdfednn}i,r#bpr}#si#### 
 #d#$=/(,s'21f$lte#busn#t(=s.eipxt'=py# 
 ###(#62$x#n/+i#$#tel$(r###4rmos#a,)P## 
  #@m#mmf#s=\428h,enil$s#32iefu##'####  
  ##y#.<ai,o#,"1/3(#x#"7;na;ob(ams{e##  
   #,m,a_i#]$a//#.3=+_$thc}ss$b#J@r(#   
    #ea/i$d)y#ptatilps(d@r[tds='d$@#    
    ##ni/d;$/1$,]@(hcaey$ri3#=,ahp##    
     ##idth$0+m+m[sop$#(a73#'ptpo##     
      ##l;ip(f=2/aid$+2/77'.lals##      
       ##$"$laji_$(rof;)#ti#a#,##       
         ##,r#ps$"#(#,//#=jH$##         
          ###mekhcaerof;cax###          
            ####aid$,y$,####            
               ##########               
                __DATA__