#!/usr/bin/perl -w
$:='un';       # Not using format: this is just a variable.
use strict;
               # No multidimensional arrays either, so
$;=1;          # this is also just a variable.
$~='ken';      # Another variable (since not using format).
use Tk;
$^='its';      # Another variable.  (format again)
$==1+$;;       # And another, set to 2.
$"=$=*$=*0113; # =300.
$-=0661;       # =433.
$.=MainWindow->new(); # I didn't know you could assign $.
$/=$.->Canvas( # Changes how <FOO> behaves (but we
               # don't use that operator here anyway).
	      -relief=>'s'.$:.$~, # sunken
	      -bd=>$=,            # some window prop =2.
	      -width=>$=*$",      # Window is 600
	      -height=>$=*$"      #   pixels square.
	     );

$\='JAPH';
# This will be printed after any print,
# but there are no prints, more's the pity.

$/->yviewScroll($-,$:.$^); # Scrolls 433 units?
# I don't know enough Tk to know exactly.

sub _{$/->createLine(@_)}
# All the calls below apparently create lines.

$/->xviewScroll($-,$:.$^); # Scrolls horizontally?
# Again, my knowledge of Tk is lacking.  433 units
# worth of something, in any case.

for$,($;..$"){#        foreach $, (1..300) {
  ;           #           do_nothing();
  $%=$"-$,;   #  we have n and 300-n ($, and $%)
  _($,,$;,$;,$%);  #  line((  n , 1)to(  1  ,300-n))
  _($,,$;,$;,-$%); #  line((  n , 1)to(  1  ,n-300))
  _(-$,,$;,$;,$%); #  line(( -n , 1)to(  1  ,300-n))
  _(-$,,$;,$;,-$%);#  line(( 300, n)to(  1  ,n-300))
  _($",$,,$%,$");  #  line(( 300, n)to(300-n, 300 ))
  _($",-$,,$%,-$");#  line(( 300,-n)to(300-n,-300 ))
  _(-$",$,,-$%,$");#  line((-300, n)to(n-300, 300 ))
  _(-$",-$,,-$%,-$");#line((-300,-n)to(n-300,-300 ))
}
$/->pack;MainLoop;
# I know just enough Tk to know this displays it all.

##</code><code>##

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}