($q= q!($K,$i ,$k , $u,$c,$h ,$a ,$ n )=gmtime;$h-=100; $d = $n+$h*36 5 + int(($ h+ 3) /4 )- in t( ($ h- 1) /1 00 )+ in t( ($ h- 1) /4 0 0) +($k+ ( $ i+$K/6 0)/6 0)/24+23.686;$w=48;$h=32;$n =29.53 0588853;$p= ($d-$ n *in t($d /$n) ) /$ n;@ n=u npac k ' a 'xj 64, q/j ` ' " -` '"j ''" -' ` " ,: :: ,: :: .: : :. : :: . :: :,: :: . :: : ,: : :. :: :, :: : .:: : . ::: /; @ m= un pa ck ' a 'xj64 ,q /j`'"j`'"j` '" ++ +" ,; : 8, (|7 +88 8+ < 89.:: 8+|88 .8 )P +8 >P . 88 8,d8).8b (o db 8/ ;for ( $ y=-$h ;$ y< =$ h; $y ++){ $l=-( $r=$x =$w*s qrt( 1-($ y *$ y) /($h*$ h ))) ; ( ($ i= 4*$p)< 2)?($l = $x*(1- $i )):( $r = $x*( 3- $i)); for( $x= -$w ;$ x <=$w;$ x++) {$ z{ $x}{ $y }=($ x >=$ l &&$x < =$r) ? 1 :0;}}for($ c=a tan 2 ($ a= 0, -1); $ a<2 56;$a++) {$z {int($w*co s ($a* $c /12 8) )}{ int( $h *si n($a*$c/ 128))}||=2 ; }f or($y= -$ h;$ y<$h;$ y+ =3 ){for($ x=-$w;$ x <$w ;$x+ =2 ) {@i= ($z{$ x+1} {$y}, $z {$x}{$ y} , $z{$ x+1}{ $y+1 },$z{$x}{$y + 1 }, $ z{$x+1} { $y+2},$z {$x } { $y + 2}); f or( $d =$a =$ b= 0;$d < 6 ;$ d++ ){($ i[ $d]== 1) &&($a+= (1 < <$d )) ;($ i [$ d]= = 2)&& ($b+=(1 < < $d )); }(($o=$m[ $ a])eq'j ' )&&($ o=$n [ $b]); prin t$o ; } pri nt"\n";}! )=~s/\s //gx ;;$q=~ s/j/ /g;eval $q;;