#!/usr/bin/ruby

require 'zlib'

d = 0
p = 2

eval $b = %{

q = [1, 2, 4][rand(3)]

$P =
[
   [2, 16],
   [2, 16],
   [1, 18],
   [1, 18],
   [1, 18],
   [1, 18],
   [1, 18],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20],
   [0, 20]
]

H = [2, 3, 4, 5, 6, 7, 8, 9]
H = d > 0 ? H : H.reverse

A =
[
   [[ 8,  8], [14,  7], [18,  7], [24,  8], [30, 9]],
   [[24, 10], [19, 11], [13, 11], [ 8, 10], [ 2, 9]],
   5.times.map{[58, 9]},
   5.times.map{[65, 17]}
]
a =
[
   [3, A],
   [6, 
    [
       5.times.map{[2, 9]},
       A[0].map{|x, y| [x + 28, y]},
       A[1].map{|x, y| [x + 28, y]},
       5.times.map{[9, 17]}
    ]
   ],
   [5,
    [
       A[0].map{|x, y| [x * 2 - 2, y]},
       5.times.map{[30, 9]},
       A[1].map{|x, y| [x * 2 - 2, y]},
       5.times.map{[37, 17]}
    ]
   ]
]

$n = ""

$z = 'Z=' + rand.to_s + ';d=' + (d ^ 1).to_s + ';p=' + q.to_s + ';eval$b=%{' + $b + '}'
$z = [Zlib::Deflate.deflate($z)].pack('m').gsub("\n", '')
$z = "eval(%w{require'zlib';eval(Zlib::Inflate.inflate('" + $z + "'.unpack('m')[0]))#" + $z

def E(u, v)
   r = u[1]
   v.each{|i, j|
      (0..(j-1)).each{|c|
         $f[r][u[0] + c + i] = 'x'
      }
      r += 1
   }
end

def e(u, v, w, x)
   $f = 24.times.map{79.times.map{" "}.join("")}

   E(x, [ [1, 4], [0, 6], [0, 6], [0, 6], [1, 4] ])
   E(u, $P)
   E(v, $P)
   E(w, $P)

   print $n
   $n = "#" + 27.chr + "[24A\r"

   t = $f.join("\n")
   g = $z[0, t.count('x') - 5] + '}*"")'

   o = -1
   k = ''
   t.each_char{|c| k += (c == 'x' ? g[o += 1] : c)}
   puts k

   $stdout.flush
   sleep 0.05
end

for i in 0..(H.length - 1)
   h =
   [
      [],
      [
         H.map{|y| [2, y]},
         8.times.map{[30, 9]},
         8.times.map{[58, 9]},
         8.times.map{[9, 17]}
      ],
      [
         8.times.map{[2, 9]},
         H.map{|y| [30, y]},
         8.times.map{[58, 9]},
         8.times.map{[37, 17]}
      ],
      [],
      [
         8.times.map{[2, 9]},
         8.times.map{[30, 9]},
         H.map{|y| [58, y]},
         8.times.map{[65, 17]}
      ]
   ][p]
   e(h[0][i], h[1][i], h[2][i], h[3][i])
end

if d > 0
   j = 0
   while j < 20 || p != q
      op = a[rand(3)]
      p ^= op[0]
      j += 1

      h = op[1]
      for i in 0..4
         e(h[0][i], h[1][i], h[2][i], h[3][i])
      end
   end
end

exit
}