#!/usr/bin/perl
# dango5.pl - Don Yang (uguu.org)
#
# 12/23/07

$n = q{

$l = 23 - 2 * ($a = sin(($c = (time() % 100) / 50) * atan2(0, -1)));
$p = 10.5 + $a;
$q = 6.5 - $a;

if( $c < 1 )
{
   $s = 56 - 33 * $c;
   $x = 2 * $c - 1;
   $t = 11 + $x * $x * 7;
}
else
{
   $s = 23 + 33 * ($c - 1);
   $t = 18;
}

for($y = 0; $y < 24; $y++)
{
   $v = ($y - $t) / ($y < $t ? $p : $q);
   for($x = 0; $x < 79; $x++)
   {
      $u = ($x - $s) / $l;

      $c = $x - int($s);
      $z .=
         chr
         (
            $y == int($t + $q) && abs($x - $s) < 10
            ?  33
            :  (
                  $u * $u + $v * $v > 1 ||
                  ($y > $t - 5 - 2 * $a && $y <= $t - 2 - 2 * $a &&
                   !($c + 6 && $c && $c + 5 && $c - 1))
                  ? 32 : 33
               )
         );
   }
   $z .= "\n";
}

$c = ($z =~ y/!/x/);
$n = '$n=q{' . $n . '#'x($c - length($n) - 26) . '};$n=~s/\s//g;eval$n;';
$y = 0;
foreach $x ($z =~ /./gs)
{
   print 'x' eq $x ? substr($n, $y++, 1) : $x;
}

};

$n=~s/\s//g;eval$n;