#!/usr/bin/perl -w
# neptune7.pl - Don Yang (uguu.org)
#
# 2014-03-16

use Compress::Zlib;

$q = q'
@c = ();

if( !defined($s) )
{
   if( $#ARGV )
   {
      print "$0 <seed>\n";
      exit 1;
   }
   $s = $ARGV[0];
}
$r = $s;

for($x = 0; $x < 27; $x++)
{
   $c[0][$x] = $c[11][$x] = 5;
}
for($y = 1; $y < 11; $y++)
{
   $c[$y][0] = $c[$y][26] = 6;
   for($x = 1; $x < 26; $c[$y][$x++] = 0) {}
}

for($x = 10; $x < 16; $c[6][$x++] = 5)
{
   $c[5][$x] = 7;
}
$c[5][16] = 6;
$c[6][16] = 4;

@b = ([0, 1, 1, 1]);
while( scalar @b )
{
   ($m, $n, $o, $p) = @{pop @b};

   next if $c[$p][$o] & 4;

   $c[$p][$o] |= 4;
   if( $m - $o )
   {
      $c[$p][$m < $o ? $m : $o] |= 1;
   }
   else
   {
      $c[$n < $p ? $n : $p][$o] |= 2;
   }

   @m = ([-1, 0], [1, 0], [0, -1], [0, 1]);
   for($i = @m; --$i;)
   {
      $j = ($r = ($r >> 1) ^ (0xd0000001 & -($r & 1))) % ($i + 1);
      next if $i == $j;
      @m[$i, $j] = @m[$j, $i];
   }

   while( scalar @m )
   {
      ($i, $j) = @{pop @m};
      push @b, [$o, $p, $o + $i, $p + $j];
   }
}

$c[10][25] |= 1;
$c[1][0] &= ~1;

if( defined($u) )
{
   if( defined($d) )
   {
      if( !$d && ($c[$v - 1][$u] & 2) )
      {
         $v--;
      }
      elsif( $d == 1 && ($c[$v][$u] & 2) )
      {
         $v++;
      }
      elsif( $d == 2 && $c[$v][$u - 1] & 1 )
      {
         $u--;
      }
   }
   else
   {
      if( $c[$v][$u] & 1 )
      {
         $u++;
      }
   }
}
else
{
   $u = $v = 1;
}

if( $u == 25 && $v == 10 )
{
   print "\n" x 25, <<z;
                           ooooooooooo
                     ood88888888888888888oo
                  d]888888888888888888888888bo
              d"""  d88888888888888888888888888bc
            od8oc   `9888888888888888888[  888888bc         G O A L !
         ]88888P  8bo8888888888888888P"""  "  98888c
         ooo8888888888"888888888 ]8888oooc  ood88888o
      `"8888888888888  88888888   88888888  ]88888888b
         "9888888888   9888888    `8888888888888888888b
        od888888889    `88 88      98P98888888888888888888b"
      o88P""888888      `P "       `" ]8888888888888P9888bc
           d889888"""`=               ]88888888888888c `""9bc
          d8"o8888               """`=]8888`8888888888c
         o" o88888                    88888b888888b 988c
            8888P8c      oooo         `8888888888888c "8
           ]8888 `9o      88P       od888888888888888c
           ]88P    `"bo         ood888888888888 9c""88c
           ]88"[      `"9oood"""98P" 9888888[`8       "
           `8P                  "    `888888[ `
            9[                       d888898
            `                       d8888  P
                                  o8P"9P

z
}
else
{
   $K = ($k = "\47") x 3;
   $y = chr(92);
   if( $u == 1 && $v == 1 )
   {
      $q = "\$s=$s;$q";
   }
   $qq = pack "u*", compress($q);
   eval "\$qq =~ y/${y}40-${y}47${y}n\@$y$y/a-k/;";

   print <<"EOT";
q=$K\$q=.0;use Compress::Zlib;\$u=$u;\$v=$v;(\$q="$qq")=~y/a-k/${y}40-${y}47${y}12${y}100${y}134/;\$q=uncompress(unpack"u*",\$q);eval\$q;__DATA__ $k+%{
perl<<z;exit 0
$y\$d=0;\$q
z
$K
import subprocess
r=q.rfind($k/$k)
i=subprocess.Popen("perl",stdin=subprocess.PIPE)
i.stdin.write($k\$d=1;$k+q[0:q.rfind($k/$k,0,r)]+r$k/${y}40-${y}47${y}12${y}100${y}134$k+q[r:])
i.stdin.close()
i.wait()
$K};IO.popen("perl","w"){|l|l.write($k\$d=2;$k+q);l.close_write};r=%{
EOT
   print "\n" x 25;

   @m = ();
   for($y = 0; $y < 11; $y++)
   {
      $n = "";
      for($x = 0; $x < 26; $n .= ($c[$y][$x++] & 1) ? "   " : "  |") {}
      push @m, substr($n, 2) . "\n";

      $n = "";
      for($x = 0; $x < 26; $x++)
      {
         $n .= (($c[$y][$x] & 2) ? "  " : "--") .
               substr("+++++-+-++||+-| ",
                      (($c[$y][$x] & 3) << 2) |
                      ($c[$y + 1][$x] & 1) |
                      ($c[$y][$x + 1] & 2), 1);
      }
      push @m, substr($n, 2) . "\n";
   }

   substr($m[10], 36, 4) = "bash";
   substr($m[11], 29, 18) = "ruby          perl";
   substr($m[12], 35, 6) = "python";
   substr($m[21], 71, 5) = "}#$K";

   substr($m[$v * 2], $u * 3 - 2, 2) = "<>";

   print foreach @m;
}
';


eval $q;