($q = q!
($K,$i,$k,$u,$c,$h,$a,$n) = gmtime;

$h -= 100;
$d = $n + $h * 365
   + int(($h + 3) / 4)
   - int(($h - 1) / 100)
   + int(($h - 1) / 400)
   + ($k + ($i + $K / 60) / 60) / 24
   + 23.686;

$w = 48;
$h = 32;

$n = 29.530588853;
$p = ($d - $n * int($d / $n)) / $n;

@n = unpack 'a' xj64,
   q/j`'"-`'"j''"-'`" ,:::,:::.:::.::: .:::,:::.:::,::: .:::,:::.:::.:::/;
@m = unpack 'a' xj64,
   q/j`'"j`'"j`'"+++" ,;:8,(|7+888+<89 .::8+|88.8)P+8>P .888,d8).8b(odb8/;


for($y = -$h; $y <= $h; $y++)
{
   $l = -($r = $x = $w * sqrt(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 = atan2($a = 0, -1); $a < 256; $a++)
{
   $z{int($w * cos($a * $c / 128))}
     {int($h * sin($a * $c / 128))} ||= 2;
}

for($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}
      );
      for($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]);
      print $o;
   }
   print "\n";
}
!) =~ s/\s//gx;;
$q =~ s/j/ /g;
eval $q;;